
! KGEN-generated Fortran source file
!
! Filename    : mo_lu_factor.F90
! Generated at: 2015-05-13 11:02:22
! KGEN version: 0.4.10



    MODULE mo_lu_factor
        USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
        PRIVATE
        PUBLIC lu_fac
        CONTAINS

        ! write subroutines
        ! No subroutines
        ! No module extern variables

        SUBROUTINE lu_fac01(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(1) = 1._r8 / lu(1)
            lu(2) = 1._r8 / lu(2)
            lu(3) = 1._r8 / lu(3)
            lu(4) = 1._r8 / lu(4)
            lu(5) = 1._r8 / lu(5)
            lu(6) = 1._r8 / lu(6)
            lu(7) = 1._r8 / lu(7)
            lu(8) = 1._r8 / lu(8)
            lu(9) = 1._r8 / lu(9)
            lu(10) = 1._r8 / lu(10)
            lu(11) = 1._r8 / lu(11)
            lu(12) = 1._r8 / lu(12)
            lu(13) = 1._r8 / lu(13)
            lu(14) = 1._r8 / lu(14)
            lu(15) = 1._r8 / lu(15)
            lu(16) = 1._r8 / lu(16)
            lu(17) = 1._r8 / lu(17)
            lu(18) = lu(18) * lu(17)
            lu(19) = lu(19) * lu(17)
            lu(1383) = lu(1383) - lu(18) * lu(1296)
            lu(1389) = lu(1389) - lu(19) * lu(1296)
            lu(20) = 1._r8 / lu(20)
            lu(21) = lu(21) * lu(20)
            lu(22) = lu(22) * lu(20)
            lu(1044) = lu(1044) - lu(21) * lu(1029)
            lu(1046) = lu(1046) - lu(22) * lu(1029)
            lu(23) = 1._r8 / lu(23)
            lu(24) = lu(24) * lu(23)
            lu(25) = lu(25) * lu(23)
            lu(1341) = lu(1341) - lu(24) * lu(1297)
            lu(1389) = lu(1389) - lu(25) * lu(1297)
            lu(26) = 1._r8 / lu(26)
            lu(27) = lu(27) * lu(26)
            lu(28) = lu(28) * lu(26)
            lu(1311) = lu(1311) - lu(27) * lu(1298)
            lu(1389) = lu(1389) - lu(28) * lu(1298)
            lu(29) = 1._r8 / lu(29)
            lu(30) = lu(30) * lu(29)
            lu(31) = lu(31) * lu(29)
            lu(32) = lu(32) * lu(29)
            lu(1354) = lu(1354) - lu(30) * lu(1299)
            lu(1389) = lu(1389) - lu(31) * lu(1299)
            lu(1392) = lu(1392) - lu(32) * lu(1299)
            lu(33) = 1._r8 / lu(33)
            lu(34) = lu(34) * lu(33)
            lu(35) = lu(35) * lu(33)
            lu(36) = lu(36) * lu(33)
            lu(37) = lu(37) * lu(33)
            lu(1301) = lu(1301) - lu(34) * lu(1300)
            lu(1330) = lu(1330) - lu(35) * lu(1300)
            lu(1383) = lu(1383) - lu(36) * lu(1300)
            lu(1389) = lu(1389) - lu(37) * lu(1300)
            lu(38) = 1._r8 / lu(38)
            lu(39) = lu(39) * lu(38)
            lu(40) = lu(40) * lu(38)
            lu(1304) = lu(1304) - lu(39) * lu(1301)
            lu(1389) = lu(1389) - lu(40) * lu(1301)
            lu(41) = 1._r8 / lu(41)
            lu(42) = lu(42) * lu(41)
            lu(43) = lu(43) * lu(41)
            lu(387) = lu(387) - lu(42) * lu(386)
            lu(394) = - lu(43) * lu(386)
            lu(1066) = - lu(42) * lu(1056)
            lu(1120) = lu(1120) - lu(43) * lu(1056)
            lu(44) = 1._r8 / lu(44)
            lu(45) = lu(45) * lu(44)
            lu(46) = lu(46) * lu(44)
            lu(962) = lu(962) - lu(45) * lu(958)
            lu(970) = lu(970) - lu(46) * lu(958)
            lu(1346) = - lu(45) * lu(1302)
            lu(1380) = - lu(46) * lu(1302)
            lu(47) = 1._r8 / lu(47)
            lu(48) = lu(48) * lu(47)
            lu(49) = lu(49) * lu(47)
            lu(80) = lu(80) - lu(48) * lu(79)
            lu(83) = lu(83) - lu(49) * lu(79)
            lu(1462) = lu(1462) - lu(48) * lu(1460)
            lu(1484) = lu(1484) - lu(49) * lu(1460)
        END SUBROUTINE lu_fac01

        SUBROUTINE lu_fac02(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(50) = 1._r8 / lu(50)
            lu(51) = lu(51) * lu(50)
            lu(54) = lu(54) - lu(51) * lu(52)
            lu(903) = lu(903) - lu(51) * lu(886)
            lu(942) = lu(942) - lu(51) * lu(917)
            lu(1013) = lu(1013) - lu(51) * lu(984)
            lu(53) = 1._r8 / lu(53)
            lu(54) = lu(54) * lu(53)
            lu(903) = lu(903) - lu(54) * lu(887)
            lu(942) = lu(942) - lu(54) * lu(918)
            lu(968) = lu(968) - lu(54) * lu(959)
            lu(1013) = lu(1013) - lu(54) * lu(985)
            lu(55) = 1._r8 / lu(55)
            lu(56) = lu(56) * lu(55)
            lu(490) = lu(490) - lu(56) * lu(485)
            lu(564) = lu(564) - lu(56) * lu(558)
            lu(829) = lu(829) - lu(56) * lu(819)
            lu(1046) = lu(1046) - lu(56) * lu(1030)
            lu(1150) = lu(1150) - lu(56) * lu(1125)
            lu(57) = 1._r8 / lu(57)
            lu(58) = lu(58) * lu(57)
            lu(59) = lu(59) * lu(57)
            lu(60) = lu(60) * lu(57)
            lu(970) = lu(970) - lu(58) * lu(960)
            lu(973) = lu(973) - lu(59) * lu(960)
            lu(979) = lu(979) - lu(60) * lu(960)
            lu(1380) = lu(1380) - lu(58) * lu(1303)
            lu(1383) = lu(1383) - lu(59) * lu(1303)
            lu(1389) = lu(1389) - lu(60) * lu(1303)
            lu(61) = 1._r8 / lu(61)
            lu(62) = lu(62) * lu(61)
            lu(63) = lu(63) * lu(61)
            lu(64) = lu(64) * lu(61)
            lu(1263) = lu(1263) - lu(62) * lu(1259)
            lu(1285) = lu(1285) - lu(63) * lu(1259)
            lu(1290) = lu(1290) - lu(64) * lu(1259)
            lu(1331) = - lu(62) * lu(1304)
            lu(1383) = lu(1383) - lu(63) * lu(1304)
            lu(1388) = lu(1388) - lu(64) * lu(1304)
            lu(65) = 1._r8 / lu(65)
            lu(66) = lu(66) * lu(65)
            lu(67) = lu(67) * lu(65)
            lu(68) = lu(68) * lu(65)
            lu(962) = lu(962) - lu(66) * lu(961)
            lu(970) = lu(970) - lu(67) * lu(961)
            lu(974) = lu(974) - lu(68) * lu(961)
            lu(1346) = lu(1346) - lu(66) * lu(1305)
            lu(1380) = lu(1380) - lu(67) * lu(1305)
            lu(1384) = lu(1384) - lu(68) * lu(1305)
            lu(69) = 1._r8 / lu(69)
            lu(70) = lu(70) * lu(69)
            lu(71) = lu(71) * lu(69)
            lu(399) = lu(399) - lu(70) * lu(396)
            lu(401) = - lu(71) * lu(396)
            lu(825) = - lu(70) * lu(820)
            lu(829) = lu(829) - lu(71) * lu(820)
            lu(1038) = lu(1038) - lu(70) * lu(1031)
            lu(1046) = lu(1046) - lu(71) * lu(1031)
            lu(1187) = lu(1187) - lu(70) * lu(1180)
            lu(1194) = lu(1194) - lu(71) * lu(1180)
            lu(72) = 1._r8 / lu(72)
            lu(73) = lu(73) * lu(72)
            lu(74) = lu(74) * lu(72)
            lu(433) = lu(433) - lu(73) * lu(432)
            lu(436) = lu(436) - lu(74) * lu(432)
            lu(649) = lu(649) - lu(73) * lu(648)
            lu(656) = lu(656) - lu(74) * lu(648)
            lu(1439) = lu(1439) - lu(73) * lu(1438)
            lu(1451) = - lu(74) * lu(1438)
            lu(1463) = lu(1463) - lu(73) * lu(1461)
            lu(1477) = lu(1477) - lu(74) * lu(1461)
            lu(75) = 1._r8 / lu(75)
            lu(76) = lu(76) * lu(75)
            lu(77) = lu(77) * lu(75)
            lu(78) = lu(78) * lu(75)
            lu(463) = lu(463) - lu(76) * lu(459)
            lu(466) = lu(466) - lu(77) * lu(459)
            lu(469) = - lu(78) * lu(459)
            lu(861) = lu(861) - lu(76) * lu(850)
            lu(876) = lu(876) - lu(77) * lu(850)
            lu(881) = - lu(78) * lu(850)
            lu(1362) = lu(1362) - lu(76) * lu(1306)
            lu(1383) = lu(1383) - lu(77) * lu(1306)
            lu(1389) = lu(1389) - lu(78) * lu(1306)
            lu(80) = 1._r8 / lu(80)
            lu(81) = lu(81) * lu(80)
            lu(82) = lu(82) * lu(80)
            lu(83) = lu(83) * lu(80)
            lu(552) = lu(552) - lu(81) * lu(551)
            lu(554) = lu(554) - lu(82) * lu(551)
            lu(557) = - lu(83) * lu(551)
            lu(1357) = lu(1357) - lu(81) * lu(1307)
            lu(1379) = lu(1379) - lu(82) * lu(1307)
            lu(1392) = lu(1392) - lu(83) * lu(1307)
            lu(1464) = - lu(81) * lu(1462)
            lu(1471) = lu(1471) - lu(82) * lu(1462)
            lu(1484) = lu(1484) - lu(83) * lu(1462)
            lu(84) = 1._r8 / lu(84)
            lu(85) = lu(85) * lu(84)
            lu(86) = lu(86) * lu(84)
            lu(87) = lu(87) * lu(84)
            lu(88) = lu(88) * lu(84)
            lu(89) = lu(89) * lu(84)
            lu(1133) = lu(1133) - lu(85) * lu(1126)
            lu(1141) = lu(1141) - lu(86) * lu(1126)
            lu(1150) = lu(1150) - lu(87) * lu(1126)
            lu(1155) = lu(1155) - lu(88) * lu(1126)
            lu(1158) = - lu(89) * lu(1126)
            lu(1349) = lu(1349) - lu(85) * lu(1308)
            lu(1375) = lu(1375) - lu(86) * lu(1308)
            lu(1384) = lu(1384) - lu(87) * lu(1308)
            lu(1389) = lu(1389) - lu(88) * lu(1308)
            lu(1392) = lu(1392) - lu(89) * lu(1308)
            lu(90) = 1._r8 / lu(90)
            lu(91) = lu(91) * lu(90)
            lu(92) = lu(92) * lu(90)
            lu(93) = lu(93) * lu(90)
            lu(94) = lu(94) * lu(90)
            lu(95) = lu(95) * lu(90)
            lu(1129) = - lu(91) * lu(1127)
            lu(1131) = - lu(92) * lu(1127)
            lu(1137) = lu(1137) - lu(93) * lu(1127)
            lu(1149) = lu(1149) - lu(94) * lu(1127)
            lu(1155) = lu(1155) - lu(95) * lu(1127)
            lu(1329) = lu(1329) - lu(91) * lu(1309)
            lu(1343) = lu(1343) - lu(92) * lu(1309)
            lu(1361) = lu(1361) - lu(93) * lu(1309)
            lu(1383) = lu(1383) - lu(94) * lu(1309)
            lu(1389) = lu(1389) - lu(95) * lu(1309)
        END SUBROUTINE lu_fac02

        SUBROUTINE lu_fac03(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(96) = 1._r8 / lu(96)
            lu(97) = lu(97) * lu(96)
            lu(98) = lu(98) * lu(96)
            lu(99) = lu(99) * lu(96)
            lu(100) = lu(100) * lu(96)
            lu(101) = lu(101) * lu(96)
            lu(1357) = lu(1357) - lu(97) * lu(1310)
            lu(1383) = lu(1383) - lu(98) * lu(1310)
            lu(1389) = lu(1389) - lu(99) * lu(1310)
            lu(1390) = lu(1390) - lu(100) * lu(1310)
            lu(1391) = lu(1391) - lu(101) * lu(1310)
            lu(1404) = lu(1404) - lu(97) * lu(1394)
            lu(1427) = lu(1427) - lu(98) * lu(1394)
            lu(1433) = lu(1433) - lu(99) * lu(1394)
            lu(1434) = lu(1434) - lu(100) * lu(1394)
            lu(1435) = lu(1435) - lu(101) * lu(1394)
            lu(102) = 1._r8 / lu(102)
            lu(103) = lu(103) * lu(102)
            lu(104) = lu(104) * lu(102)
            lu(105) = lu(105) * lu(102)
            lu(106) = lu(106) * lu(102)
            lu(107) = lu(107) * lu(102)
            lu(1281) = lu(1281) - lu(103) * lu(1260)
            lu(1289) = lu(1289) - lu(104) * lu(1260)
            lu(1290) = lu(1290) - lu(105) * lu(1260)
            lu(1292) = lu(1292) - lu(106) * lu(1260)
            lu(1293) = lu(1293) - lu(107) * lu(1260)
            lu(1423) = lu(1423) - lu(103) * lu(1395)
            lu(1431) = lu(1431) - lu(104) * lu(1395)
            lu(1432) = lu(1432) - lu(105) * lu(1395)
            lu(1434) = lu(1434) - lu(106) * lu(1395)
            lu(1435) = lu(1435) - lu(107) * lu(1395)
            lu(108) = 1._r8 / lu(108)
            lu(109) = lu(109) * lu(108)
            lu(110) = lu(110) * lu(108)
            lu(111) = lu(111) * lu(108)
            lu(112) = lu(112) * lu(108)
            lu(113) = lu(113) * lu(108)
            lu(114) = lu(114) * lu(108)
            lu(1215) = lu(1215) - lu(109) * lu(1204)
            lu(1230) = lu(1230) - lu(110) * lu(1204)
            lu(1248) = lu(1248) - lu(111) * lu(1204)
            lu(1252) = lu(1252) - lu(112) * lu(1204)
            lu(1253) = lu(1253) - lu(113) * lu(1204)
            lu(1258) = lu(1258) - lu(114) * lu(1204)
            lu(1342) = lu(1342) - lu(109) * lu(1311)
            lu(1362) = lu(1362) - lu(110) * lu(1311)
            lu(1383) = lu(1383) - lu(111) * lu(1311)
            lu(1387) = lu(1387) - lu(112) * lu(1311)
            lu(1388) = lu(1388) - lu(113) * lu(1311)
            lu(1393) = lu(1393) - lu(114) * lu(1311)
            lu(115) = 1._r8 / lu(115)
            lu(116) = lu(116) * lu(115)
            lu(117) = lu(117) * lu(115)
            lu(118) = lu(118) * lu(115)
            lu(119) = lu(119) * lu(115)
            lu(335) = lu(335) - lu(116) * lu(334)
            lu(336) = lu(336) - lu(117) * lu(334)
            lu(337) = lu(337) - lu(118) * lu(334)
            lu(341) = - lu(119) * lu(334)
            lu(1078) = lu(1078) - lu(116) * lu(1057)
            lu(1094) = - lu(117) * lu(1057)
            lu(1105) = lu(1105) - lu(118) * lu(1057)
            lu(1120) = lu(1120) - lu(119) * lu(1057)
            lu(1340) = lu(1340) - lu(116) * lu(1312)
            lu(1362) = lu(1362) - lu(117) * lu(1312)
            lu(1373) = lu(1373) - lu(118) * lu(1312)
            lu(1389) = lu(1389) - lu(119) * lu(1312)
            lu(120) = 1._r8 / lu(120)
            lu(121) = lu(121) * lu(120)
            lu(122) = lu(122) * lu(120)
            lu(123) = lu(123) * lu(120)
            lu(124) = lu(124) * lu(120)
            lu(721) = lu(721) - lu(121) * lu(713)
            lu(722) = - lu(122) * lu(713)
            lu(725) = lu(725) - lu(123) * lu(713)
            lu(729) = - lu(124) * lu(713)
            lu(1102) = lu(1102) - lu(121) * lu(1058)
            lu(1104) = lu(1104) - lu(122) * lu(1058)
            lu(1114) = lu(1114) - lu(123) * lu(1058)
            lu(1120) = lu(1120) - lu(124) * lu(1058)
            lu(1370) = lu(1370) - lu(121) * lu(1313)
            lu(1372) = lu(1372) - lu(122) * lu(1313)
            lu(1383) = lu(1383) - lu(123) * lu(1313)
            lu(1389) = lu(1389) - lu(124) * lu(1313)
            lu(125) = 1._r8 / lu(125)
            lu(126) = lu(126) * lu(125)
            lu(127) = lu(127) * lu(125)
            lu(128) = lu(128) * lu(125)
            lu(129) = lu(129) * lu(125)
            lu(462) = lu(462) - lu(126) * lu(460)
            lu(463) = lu(463) - lu(127) * lu(460)
            lu(466) = lu(466) - lu(128) * lu(460)
            lu(469) = lu(469) - lu(129) * lu(460)
            lu(1086) = lu(1086) - lu(126) * lu(1059)
            lu(1094) = lu(1094) - lu(127) * lu(1059)
            lu(1114) = lu(1114) - lu(128) * lu(1059)
            lu(1120) = lu(1120) - lu(129) * lu(1059)
            lu(1349) = lu(1349) - lu(126) * lu(1314)
            lu(1362) = lu(1362) - lu(127) * lu(1314)
            lu(1383) = lu(1383) - lu(128) * lu(1314)
            lu(1389) = lu(1389) - lu(129) * lu(1314)
            lu(130) = 1._r8 / lu(130)
            lu(131) = lu(131) * lu(130)
            lu(132) = lu(132) * lu(130)
            lu(133) = lu(133) * lu(130)
            lu(575) = - lu(131) * lu(570)
            lu(580) = - lu(132) * lu(570)
            lu(582) = - lu(133) * lu(570)
            lu(677) = lu(677) - lu(131) * lu(670)
            lu(684) = - lu(132) * lu(670)
            lu(687) = - lu(133) * lu(670)
            lu(1100) = lu(1100) - lu(131) * lu(1060)
            lu(1120) = lu(1120) - lu(132) * lu(1060)
            lu(1123) = lu(1123) - lu(133) * lu(1060)
            lu(1368) = lu(1368) - lu(131) * lu(1315)
            lu(1389) = lu(1389) - lu(132) * lu(1315)
            lu(1392) = lu(1392) - lu(133) * lu(1315)
            lu(134) = 1._r8 / lu(134)
            lu(135) = lu(135) * lu(134)
            lu(136) = lu(136) * lu(134)
            lu(137) = lu(137) * lu(134)
            lu(138) = lu(138) * lu(134)
            lu(804) = lu(804) - lu(135) * lu(802)
            lu(805) = lu(805) - lu(136) * lu(802)
            lu(808) = lu(808) - lu(137) * lu(802)
            lu(810) = lu(810) - lu(138) * lu(802)
            lu(1034) = lu(1034) - lu(135) * lu(1032)
            lu(1036) = lu(1036) - lu(136) * lu(1032)
            lu(1041) = lu(1041) - lu(137) * lu(1032)
            lu(1044) = lu(1044) - lu(138) * lu(1032)
            lu(1184) = lu(1184) - lu(135) * lu(1181)
            lu(1185) = lu(1185) - lu(136) * lu(1181)
            lu(1189) = lu(1189) - lu(137) * lu(1181)
            lu(1192) = lu(1192) - lu(138) * lu(1181)
        END SUBROUTINE lu_fac03

        SUBROUTINE lu_fac04(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(139) = 1._r8 / lu(139)
            lu(140) = lu(140) * lu(139)
            lu(141) = lu(141) * lu(139)
            lu(532) = - lu(140) * lu(529)
            lu(535) = lu(535) - lu(141) * lu(529)
            lu(696) = - lu(140) * lu(689)
            lu(708) = - lu(141) * lu(689)
            lu(784) = lu(784) - lu(140) * lu(774)
            lu(797) = - lu(141) * lu(774)
            lu(866) = lu(866) - lu(140) * lu(851)
            lu(881) = lu(881) - lu(141) * lu(851)
            lu(1235) = lu(1235) - lu(140) * lu(1205)
            lu(1254) = lu(1254) - lu(141) * lu(1205)
            lu(1368) = lu(1368) - lu(140) * lu(1316)
            lu(1389) = lu(1389) - lu(141) * lu(1316)
            lu(1413) = lu(1413) - lu(140) * lu(1396)
            lu(1433) = lu(1433) - lu(141) * lu(1396)
            lu(142) = 1._r8 / lu(142)
            lu(143) = lu(143) * lu(142)
            lu(144) = lu(144) * lu(142)
            lu(145) = lu(145) * lu(142)
            lu(146) = lu(146) * lu(142)
            lu(147) = lu(147) * lu(142)
            lu(148) = lu(148) * lu(142)
            lu(149) = lu(149) * lu(142)
            lu(926) = - lu(143) * lu(919)
            lu(934) = - lu(144) * lu(919)
            lu(936) = lu(936) - lu(145) * lu(919)
            lu(938) = lu(938) - lu(146) * lu(919)
            lu(943) = lu(943) - lu(147) * lu(919)
            lu(949) = lu(949) - lu(148) * lu(919)
            lu(953) = lu(953) - lu(149) * lu(919)
            lu(1344) = lu(1344) - lu(143) * lu(1317)
            lu(1357) = lu(1357) - lu(144) * lu(1317)
            lu(1361) = lu(1361) - lu(145) * lu(1317)
            lu(1374) = lu(1374) - lu(146) * lu(1317)
            lu(1379) = lu(1379) - lu(147) * lu(1317)
            lu(1385) = lu(1385) - lu(148) * lu(1317)
            lu(1389) = lu(1389) - lu(149) * lu(1317)
            lu(150) = 1._r8 / lu(150)
            lu(151) = lu(151) * lu(150)
            lu(152) = lu(152) * lu(150)
            lu(153) = lu(153) * lu(150)
            lu(362) = - lu(151) * lu(354)
            lu(366) = lu(366) - lu(152) * lu(354)
            lu(367) = - lu(153) * lu(354)
            lu(591) = - lu(151) * lu(584)
            lu(597) = - lu(152) * lu(584)
            lu(598) = lu(598) - lu(153) * lu(584)
            lu(1234) = lu(1234) - lu(151) * lu(1206)
            lu(1253) = lu(1253) - lu(152) * lu(1206)
            lu(1254) = lu(1254) - lu(153) * lu(1206)
            lu(1367) = lu(1367) - lu(151) * lu(1318)
            lu(1388) = lu(1388) - lu(152) * lu(1318)
            lu(1389) = lu(1389) - lu(153) * lu(1318)
            lu(1412) = lu(1412) - lu(151) * lu(1397)
            lu(1432) = lu(1432) - lu(152) * lu(1397)
            lu(1433) = lu(1433) - lu(153) * lu(1397)
            lu(154) = 1._r8 / lu(154)
            lu(155) = lu(155) * lu(154)
            lu(156) = lu(156) * lu(154)
            lu(157) = lu(157) * lu(154)
            lu(158) = lu(158) * lu(154)
            lu(159) = lu(159) * lu(154)
            lu(872) = lu(872) - lu(155) * lu(852)
            lu(878) = - lu(156) * lu(852)
            lu(881) = lu(881) - lu(157) * lu(852)
            lu(884) = - lu(158) * lu(852)
            lu(885) = lu(885) - lu(159) * lu(852)
            lu(1108) = lu(1108) - lu(155) * lu(1061)
            lu(1116) = lu(1116) - lu(156) * lu(1061)
            lu(1120) = lu(1120) - lu(157) * lu(1061)
            lu(1123) = lu(1123) - lu(158) * lu(1061)
            lu(1124) = lu(1124) - lu(159) * lu(1061)
            lu(1377) = lu(1377) - lu(155) * lu(1319)
            lu(1385) = lu(1385) - lu(156) * lu(1319)
            lu(1389) = lu(1389) - lu(157) * lu(1319)
            lu(1392) = lu(1392) - lu(158) * lu(1319)
            lu(1393) = lu(1393) - lu(159) * lu(1319)
            lu(160) = 1._r8 / lu(160)
            lu(161) = lu(161) * lu(160)
            lu(162) = lu(162) * lu(160)
            lu(163) = lu(163) * lu(160)
            lu(164) = lu(164) * lu(160)
            lu(165) = lu(165) * lu(160)
            lu(246) = lu(246) - lu(161) * lu(245)
            lu(247) = lu(247) - lu(162) * lu(245)
            lu(248) = lu(248) - lu(163) * lu(245)
            lu(249) = lu(249) - lu(164) * lu(245)
            lu(253) = - lu(165) * lu(245)
            lu(1071) = lu(1071) - lu(161) * lu(1062)
            lu(1072) = - lu(162) * lu(1062)
            lu(1081) = - lu(163) * lu(1062)
            lu(1099) = - lu(164) * lu(1062)
            lu(1120) = lu(1120) - lu(165) * lu(1062)
            lu(1330) = lu(1330) - lu(161) * lu(1320)
            lu(1331) = lu(1331) - lu(162) * lu(1320)
            lu(1343) = lu(1343) - lu(163) * lu(1320)
            lu(1367) = lu(1367) - lu(164) * lu(1320)
            lu(1389) = lu(1389) - lu(165) * lu(1320)
            lu(166) = 1._r8 / lu(166)
            lu(167) = lu(167) * lu(166)
            lu(168) = lu(168) * lu(166)
            lu(169) = lu(169) * lu(166)
            lu(170) = lu(170) * lu(166)
            lu(171) = lu(171) * lu(166)
            lu(516) = lu(516) - lu(167) * lu(515)
            lu(517) = lu(517) - lu(168) * lu(515)
            lu(523) = lu(523) - lu(169) * lu(515)
            lu(526) = - lu(170) * lu(515)
            lu(527) = - lu(171) * lu(515)
            lu(1080) = - lu(167) * lu(1063)
            lu(1089) = lu(1089) - lu(168) * lu(1063)
            lu(1114) = lu(1114) - lu(169) * lu(1063)
            lu(1120) = lu(1120) - lu(170) * lu(1063)
            lu(1123) = lu(1123) - lu(171) * lu(1063)
            lu(1342) = lu(1342) - lu(167) * lu(1321)
            lu(1354) = lu(1354) - lu(168) * lu(1321)
            lu(1383) = lu(1383) - lu(169) * lu(1321)
            lu(1389) = lu(1389) - lu(170) * lu(1321)
            lu(1392) = lu(1392) - lu(171) * lu(1321)
        END SUBROUTINE lu_fac04

        SUBROUTINE lu_fac05(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(172) = 1._r8 / lu(172)
            lu(173) = lu(173) * lu(172)
            lu(174) = lu(174) * lu(172)
            lu(175) = lu(175) * lu(172)
            lu(176) = lu(176) * lu(172)
            lu(177) = lu(177) * lu(172)
            lu(625) = lu(625) - lu(173) * lu(622)
            lu(627) = lu(627) - lu(174) * lu(622)
            lu(633) = - lu(175) * lu(622)
            lu(634) = - lu(176) * lu(622)
            lu(635) = lu(635) - lu(177) * lu(622)
            lu(1096) = lu(1096) - lu(173) * lu(1064)
            lu(1105) = lu(1105) - lu(174) * lu(1064)
            lu(1120) = lu(1120) - lu(175) * lu(1064)
            lu(1123) = lu(1123) - lu(176) * lu(1064)
            lu(1124) = lu(1124) - lu(177) * lu(1064)
            lu(1364) = lu(1364) - lu(173) * lu(1322)
            lu(1373) = lu(1373) - lu(174) * lu(1322)
            lu(1389) = lu(1389) - lu(175) * lu(1322)
            lu(1392) = lu(1392) - lu(176) * lu(1322)
            lu(1393) = lu(1393) - lu(177) * lu(1322)
            lu(178) = 1._r8 / lu(178)
            lu(179) = lu(179) * lu(178)
            lu(180) = lu(180) * lu(178)
            lu(181) = lu(181) * lu(178)
            lu(182) = lu(182) * lu(178)
            lu(183) = lu(183) * lu(178)
            lu(1070) = lu(1070) - lu(179) * lu(1065)
            lu(1114) = lu(1114) - lu(180) * lu(1065)
            lu(1118) = lu(1118) - lu(181) * lu(1065)
            lu(1119) = lu(1119) - lu(182) * lu(1065)
            lu(1124) = lu(1124) - lu(183) * lu(1065)
            lu(1210) = lu(1210) - lu(179) * lu(1207)
            lu(1248) = lu(1248) - lu(180) * lu(1207)
            lu(1252) = lu(1252) - lu(181) * lu(1207)
            lu(1253) = lu(1253) - lu(182) * lu(1207)
            lu(1258) = lu(1258) - lu(183) * lu(1207)
            lu(1487) = - lu(179) * lu(1486)
            lu(1499) = lu(1499) - lu(180) * lu(1486)
            lu(1503) = - lu(181) * lu(1486)
            lu(1504) = - lu(182) * lu(1486)
            lu(1509) = lu(1509) - lu(183) * lu(1486)
            lu(184) = 1._r8 / lu(184)
            lu(185) = lu(185) * lu(184)
            lu(186) = lu(186) * lu(184)
            lu(187) = lu(187) * lu(184)
            lu(188) = lu(188) * lu(184)
            lu(325) = - lu(185) * lu(323)
            lu(328) = - lu(186) * lu(323)
            lu(330) = - lu(187) * lu(323)
            lu(332) = lu(332) - lu(188) * lu(323)
            lu(357) = - lu(185) * lu(355)
            lu(360) = - lu(186) * lu(355)
            lu(363) = - lu(187) * lu(355)
            lu(367) = lu(367) - lu(188) * lu(355)
            lu(1213) = lu(1213) - lu(185) * lu(1208)
            lu(1222) = lu(1222) - lu(186) * lu(1208)
            lu(1240) = lu(1240) - lu(187) * lu(1208)
            lu(1254) = lu(1254) - lu(188) * lu(1208)
            lu(1340) = lu(1340) - lu(185) * lu(1323)
            lu(1349) = lu(1349) - lu(186) * lu(1323)
            lu(1373) = lu(1373) - lu(187) * lu(1323)
            lu(1389) = lu(1389) - lu(188) * lu(1323)
            lu(189) = 1._r8 / lu(189)
            lu(190) = lu(190) * lu(189)
            lu(191) = lu(191) * lu(189)
            lu(192) = lu(192) * lu(189)
            lu(193) = lu(193) * lu(189)
            lu(389) = - lu(190) * lu(387)
            lu(390) = - lu(191) * lu(387)
            lu(391) = lu(391) - lu(192) * lu(387)
            lu(395) = lu(395) - lu(193) * lu(387)
            lu(898) = lu(898) - lu(190) * lu(888)
            lu(903) = lu(903) - lu(191) * lu(888)
            lu(908) = lu(908) - lu(192) * lu(888)
            lu(916) = - lu(193) * lu(888)
            lu(1088) = - lu(190) * lu(1066)
            lu(1109) = lu(1109) - lu(191) * lu(1066)
            lu(1114) = lu(1114) - lu(192) * lu(1066)
            lu(1124) = lu(1124) - lu(193) * lu(1066)
            lu(1224) = lu(1224) - lu(190) * lu(1209)
            lu(1243) = lu(1243) - lu(191) * lu(1209)
            lu(1248) = lu(1248) - lu(192) * lu(1209)
            lu(1258) = lu(1258) - lu(193) * lu(1209)
            lu(194) = 1._r8 / lu(194)
            lu(195) = lu(195) * lu(194)
            lu(196) = lu(196) * lu(194)
            lu(197) = lu(197) * lu(194)
            lu(198) = lu(198) * lu(194)
            lu(199) = lu(199) * lu(194)
            lu(200) = lu(200) * lu(194)
            lu(789) = lu(789) - lu(195) * lu(775)
            lu(790) = lu(790) - lu(196) * lu(775)
            lu(796) = lu(796) - lu(197) * lu(775)
            lu(797) = lu(797) - lu(198) * lu(775)
            lu(798) = - lu(199) * lu(775)
            lu(801) = lu(801) - lu(200) * lu(775)
            lu(1275) = lu(1275) - lu(195) * lu(1261)
            lu(1279) = - lu(196) * lu(1261)
            lu(1290) = lu(1290) - lu(197) * lu(1261)
            lu(1291) = lu(1291) - lu(198) * lu(1261)
            lu(1292) = lu(1292) - lu(199) * lu(1261)
            lu(1295) = - lu(200) * lu(1261)
            lu(1373) = lu(1373) - lu(195) * lu(1324)
            lu(1377) = lu(1377) - lu(196) * lu(1324)
            lu(1388) = lu(1388) - lu(197) * lu(1324)
            lu(1389) = lu(1389) - lu(198) * lu(1324)
            lu(1390) = lu(1390) - lu(199) * lu(1324)
            lu(1393) = lu(1393) - lu(200) * lu(1324)
            lu(201) = 1._r8 / lu(201)
            lu(202) = lu(202) * lu(201)
            lu(203) = lu(203) * lu(201)
            lu(204) = lu(204) * lu(201)
            lu(205) = lu(205) * lu(201)
            lu(206) = lu(206) * lu(201)
            lu(207) = lu(207) * lu(201)
            lu(472) = - lu(202) * lu(471)
            lu(473) = lu(473) - lu(203) * lu(471)
            lu(474) = lu(474) - lu(204) * lu(471)
            lu(476) = lu(476) - lu(205) * lu(471)
            lu(478) = lu(478) - lu(206) * lu(471)
            lu(479) = lu(479) - lu(207) * lu(471)
            lu(891) = lu(891) - lu(202) * lu(889)
            lu(894) = lu(894) - lu(203) * lu(889)
            lu(895) = lu(895) - lu(204) * lu(889)
            lu(897) = lu(897) - lu(205) * lu(889)
            lu(903) = lu(903) - lu(206) * lu(889)
            lu(904) = lu(904) - lu(207) * lu(889)
            lu(923) = lu(923) - lu(202) * lu(920)
            lu(928) = - lu(203) * lu(920)
            lu(929) = lu(929) - lu(204) * lu(920)
            lu(932) = lu(932) - lu(205) * lu(920)
            lu(942) = lu(942) - lu(206) * lu(920)
            lu(943) = lu(943) - lu(207) * lu(920)
        END SUBROUTINE lu_fac05

        SUBROUTINE lu_fac06(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(208) = 1._r8 / lu(208)
            lu(209) = lu(209) * lu(208)
            lu(210) = lu(210) * lu(208)
            lu(211) = lu(211) * lu(208)
            lu(212) = lu(212) * lu(208)
            lu(213) = lu(213) * lu(208)
            lu(214) = lu(214) * lu(208)
            lu(539) = lu(539) - lu(209) * lu(538)
            lu(540) = lu(540) - lu(210) * lu(538)
            lu(542) = lu(542) - lu(211) * lu(538)
            lu(543) = lu(543) - lu(212) * lu(538)
            lu(546) = lu(546) - lu(213) * lu(538)
            lu(549) = - lu(214) * lu(538)
            lu(1080) = lu(1080) - lu(209) * lu(1067)
            lu(1091) = lu(1091) - lu(210) * lu(1067)
            lu(1097) = lu(1097) - lu(211) * lu(1067)
            lu(1103) = lu(1103) - lu(212) * lu(1067)
            lu(1114) = lu(1114) - lu(213) * lu(1067)
            lu(1120) = lu(1120) - lu(214) * lu(1067)
            lu(1342) = lu(1342) - lu(209) * lu(1325)
            lu(1356) = lu(1356) - lu(210) * lu(1325)
            lu(1365) = lu(1365) - lu(211) * lu(1325)
            lu(1371) = lu(1371) - lu(212) * lu(1325)
            lu(1383) = lu(1383) - lu(213) * lu(1325)
            lu(1389) = lu(1389) - lu(214) * lu(1325)
            lu(215) = 1._r8 / lu(215)
            lu(216) = lu(216) * lu(215)
            lu(217) = lu(217) * lu(215)
            lu(218) = lu(218) * lu(215)
            lu(219) = lu(219) * lu(215)
            lu(220) = lu(220) * lu(215)
            lu(221) = lu(221) * lu(215)
            lu(1109) = lu(1109) - lu(216) * lu(1068)
            lu(1114) = lu(1114) - lu(217) * lu(1068)
            lu(1119) = lu(1119) - lu(218) * lu(1068)
            lu(1120) = lu(1120) - lu(219) * lu(1068)
            lu(1121) = lu(1121) - lu(220) * lu(1068)
            lu(1123) = lu(1123) - lu(221) * lu(1068)
            lu(1280) = lu(1280) - lu(216) * lu(1262)
            lu(1285) = lu(1285) - lu(217) * lu(1262)
            lu(1290) = lu(1290) - lu(218) * lu(1262)
            lu(1291) = lu(1291) - lu(219) * lu(1262)
            lu(1292) = lu(1292) - lu(220) * lu(1262)
            lu(1294) = - lu(221) * lu(1262)
            lu(1378) = lu(1378) - lu(216) * lu(1326)
            lu(1383) = lu(1383) - lu(217) * lu(1326)
            lu(1388) = lu(1388) - lu(218) * lu(1326)
            lu(1389) = lu(1389) - lu(219) * lu(1326)
            lu(1390) = lu(1390) - lu(220) * lu(1326)
            lu(1392) = lu(1392) - lu(221) * lu(1326)
            lu(222) = 1._r8 / lu(222)
            lu(223) = lu(223) * lu(222)
            lu(224) = lu(224) * lu(222)
            lu(225) = lu(225) * lu(222)
            lu(226) = lu(226) * lu(222)
            lu(348) = lu(348) - lu(223) * lu(342)
            lu(350) = lu(350) - lu(224) * lu(342)
            lu(352) = - lu(225) * lu(342)
            lu(353) = - lu(226) * lu(342)
            lu(416) = lu(416) - lu(223) * lu(413)
            lu(417) = - lu(224) * lu(413)
            lu(419) = - lu(225) * lu(413)
            lu(420) = - lu(226) * lu(413)
            lu(426) = lu(426) - lu(223) * lu(421)
            lu(428) = - lu(224) * lu(421)
            lu(430) = lu(430) - lu(225) * lu(421)
            lu(431) = - lu(226) * lu(421)
            lu(897) = lu(897) - lu(223) * lu(890)
            lu(903) = lu(903) - lu(224) * lu(890)
            lu(905) = lu(905) - lu(225) * lu(890)
            lu(912) = lu(912) - lu(226) * lu(890)
            lu(932) = lu(932) - lu(223) * lu(921)
            lu(942) = lu(942) - lu(224) * lu(921)
            lu(944) = - lu(225) * lu(921)
            lu(951) = lu(951) - lu(226) * lu(921)
            lu(227) = 1._r8 / lu(227)
            lu(228) = lu(228) * lu(227)
            lu(229) = lu(229) * lu(227)
            lu(230) = lu(230) * lu(227)
            lu(231) = lu(231) * lu(227)
            lu(232) = lu(232) * lu(227)
            lu(761) = lu(761) - lu(228) * lu(755)
            lu(762) = lu(762) - lu(229) * lu(755)
            lu(769) = - lu(230) * lu(755)
            lu(772) = - lu(231) * lu(755)
            lu(773) = lu(773) - lu(232) * lu(755)
            lu(789) = lu(789) - lu(228) * lu(776)
            lu(790) = lu(790) - lu(229) * lu(776)
            lu(797) = lu(797) - lu(230) * lu(776)
            lu(800) = - lu(231) * lu(776)
            lu(801) = lu(801) - lu(232) * lu(776)
            lu(1105) = lu(1105) - lu(228) * lu(1069)
            lu(1108) = lu(1108) - lu(229) * lu(1069)
            lu(1120) = lu(1120) - lu(230) * lu(1069)
            lu(1123) = lu(1123) - lu(231) * lu(1069)
            lu(1124) = lu(1124) - lu(232) * lu(1069)
            lu(1373) = lu(1373) - lu(228) * lu(1327)
            lu(1377) = lu(1377) - lu(229) * lu(1327)
            lu(1389) = lu(1389) - lu(230) * lu(1327)
            lu(1392) = lu(1392) - lu(231) * lu(1327)
            lu(1393) = lu(1393) - lu(232) * lu(1327)
            lu(233) = 1._r8 / lu(233)
            lu(234) = lu(234) * lu(233)
            lu(235) = lu(235) * lu(233)
            lu(236) = lu(236) * lu(233)
            lu(237) = lu(237) * lu(233)
            lu(238) = lu(238) * lu(233)
            lu(239) = lu(239) * lu(233)
            lu(240) = lu(240) * lu(233)
            lu(987) = lu(987) - lu(234) * lu(986)
            lu(991) = - lu(235) * lu(986)
            lu(998) = lu(998) - lu(236) * lu(986)
            lu(1016) = lu(1016) - lu(237) * lu(986)
            lu(1018) = lu(1018) - lu(238) * lu(986)
            lu(1024) = lu(1024) - lu(239) * lu(986)
            lu(1028) = lu(1028) - lu(240) * lu(986)
            lu(1129) = lu(1129) - lu(234) * lu(1128)
            lu(1132) = - lu(235) * lu(1128)
            lu(1137) = lu(1137) - lu(236) * lu(1128)
            lu(1147) = lu(1147) - lu(237) * lu(1128)
            lu(1149) = lu(1149) - lu(238) * lu(1128)
            lu(1155) = lu(1155) - lu(239) * lu(1128)
            lu(1159) = lu(1159) - lu(240) * lu(1128)
            lu(1329) = lu(1329) - lu(234) * lu(1328)
            lu(1345) = lu(1345) - lu(235) * lu(1328)
            lu(1361) = lu(1361) - lu(236) * lu(1328)
            lu(1381) = lu(1381) - lu(237) * lu(1328)
            lu(1383) = lu(1383) - lu(238) * lu(1328)
            lu(1389) = lu(1389) - lu(239) * lu(1328)
            lu(1393) = lu(1393) - lu(240) * lu(1328)
            lu(241) = 1._r8 / lu(241)
            lu(242) = lu(242) * lu(241)
            lu(243) = lu(243) * lu(241)
            lu(244) = lu(244) * lu(241)
            lu(1018) = lu(1018) - lu(242) * lu(987)
            lu(1024) = lu(1024) - lu(243) * lu(987)
            lu(1027) = - lu(244) * lu(987)
            lu(1114) = lu(1114) - lu(242) * lu(1070)
            lu(1120) = lu(1120) - lu(243) * lu(1070)
            lu(1123) = lu(1123) - lu(244) * lu(1070)
            lu(1149) = lu(1149) - lu(242) * lu(1129)
            lu(1155) = lu(1155) - lu(243) * lu(1129)
            lu(1158) = lu(1158) - lu(244) * lu(1129)
            lu(1248) = lu(1248) - lu(242) * lu(1210)
            lu(1254) = lu(1254) - lu(243) * lu(1210)
            lu(1257) = - lu(244) * lu(1210)
            lu(1383) = lu(1383) - lu(242) * lu(1329)
            lu(1389) = lu(1389) - lu(243) * lu(1329)
            lu(1392) = lu(1392) - lu(244) * lu(1329)
            lu(1499) = lu(1499) - lu(242) * lu(1487)
            lu(1505) = lu(1505) - lu(243) * lu(1487)
            lu(1508) = lu(1508) - lu(244) * lu(1487)
        END SUBROUTINE lu_fac06

        SUBROUTINE lu_fac07(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(246) = 1._r8 / lu(246)
            lu(247) = lu(247) * lu(246)
            lu(248) = lu(248) * lu(246)
            lu(249) = lu(249) * lu(246)
            lu(250) = lu(250) * lu(246)
            lu(251) = lu(251) * lu(246)
            lu(252) = lu(252) * lu(246)
            lu(253) = lu(253) * lu(246)
            lu(1072) = lu(1072) - lu(247) * lu(1071)
            lu(1081) = lu(1081) - lu(248) * lu(1071)
            lu(1099) = lu(1099) - lu(249) * lu(1071)
            lu(1114) = lu(1114) - lu(250) * lu(1071)
            lu(1118) = lu(1118) - lu(251) * lu(1071)
            lu(1119) = lu(1119) - lu(252) * lu(1071)
            lu(1120) = lu(1120) - lu(253) * lu(1071)
            lu(1212) = lu(1212) - lu(247) * lu(1211)
            lu(1216) = lu(1216) - lu(248) * lu(1211)
            lu(1234) = lu(1234) - lu(249) * lu(1211)
            lu(1248) = lu(1248) - lu(250) * lu(1211)
            lu(1252) = lu(1252) - lu(251) * lu(1211)
            lu(1253) = lu(1253) - lu(252) * lu(1211)
            lu(1254) = lu(1254) - lu(253) * lu(1211)
            lu(1331) = lu(1331) - lu(247) * lu(1330)
            lu(1343) = lu(1343) - lu(248) * lu(1330)
            lu(1367) = lu(1367) - lu(249) * lu(1330)
            lu(1383) = lu(1383) - lu(250) * lu(1330)
            lu(1387) = lu(1387) - lu(251) * lu(1330)
            lu(1388) = lu(1388) - lu(252) * lu(1330)
            lu(1389) = lu(1389) - lu(253) * lu(1330)
            lu(254) = 1._r8 / lu(254)
            lu(255) = lu(255) * lu(254)
            lu(256) = lu(256) * lu(254)
            lu(257) = lu(257) * lu(254)
            lu(258) = lu(258) * lu(254)
            lu(259) = lu(259) * lu(254)
            lu(1081) = lu(1081) - lu(255) * lu(1072)
            lu(1093) = - lu(256) * lu(1072)
            lu(1099) = lu(1099) - lu(257) * lu(1072)
            lu(1105) = lu(1105) - lu(258) * lu(1072)
            lu(1114) = lu(1114) - lu(259) * lu(1072)
            lu(1216) = lu(1216) - lu(255) * lu(1212)
            lu(1229) = lu(1229) - lu(256) * lu(1212)
            lu(1234) = lu(1234) - lu(257) * lu(1212)
            lu(1240) = lu(1240) - lu(258) * lu(1212)
            lu(1248) = lu(1248) - lu(259) * lu(1212)
            lu(1266) = - lu(255) * lu(1263)
            lu(1271) = - lu(256) * lu(1263)
            lu(1273) = - lu(257) * lu(1263)
            lu(1275) = lu(1275) - lu(258) * lu(1263)
            lu(1285) = lu(1285) - lu(259) * lu(1263)
            lu(1343) = lu(1343) - lu(255) * lu(1331)
            lu(1361) = lu(1361) - lu(256) * lu(1331)
            lu(1367) = lu(1367) - lu(257) * lu(1331)
            lu(1373) = lu(1373) - lu(258) * lu(1331)
            lu(1383) = lu(1383) - lu(259) * lu(1331)
            lu(260) = 1._r8 / lu(260)
            lu(261) = lu(261) * lu(260)
            lu(262) = lu(262) * lu(260)
            lu(263) = lu(263) * lu(260)
            lu(264) = lu(264) * lu(260)
            lu(265) = lu(265) * lu(260)
            lu(266) = lu(266) * lu(260)
            lu(267) = lu(267) * lu(260)
            lu(442) = lu(442) - lu(261) * lu(441)
            lu(443) = lu(443) - lu(262) * lu(441)
            lu(444) = - lu(263) * lu(441)
            lu(446) = lu(446) - lu(264) * lu(441)
            lu(449) = - lu(265) * lu(441)
            lu(450) = - lu(266) * lu(441)
            lu(451) = lu(451) - lu(267) * lu(441)
            lu(1084) = lu(1084) - lu(261) * lu(1073)
            lu(1094) = lu(1094) - lu(262) * lu(1073)
            lu(1095) = - lu(263) * lu(1073)
            lu(1114) = lu(1114) - lu(264) * lu(1073)
            lu(1120) = lu(1120) - lu(265) * lu(1073)
            lu(1123) = lu(1123) - lu(266) * lu(1073)
            lu(1124) = lu(1124) - lu(267) * lu(1073)
            lu(1347) = lu(1347) - lu(261) * lu(1332)
            lu(1362) = lu(1362) - lu(262) * lu(1332)
            lu(1363) = lu(1363) - lu(263) * lu(1332)
            lu(1383) = lu(1383) - lu(264) * lu(1332)
            lu(1389) = lu(1389) - lu(265) * lu(1332)
            lu(1392) = lu(1392) - lu(266) * lu(1332)
            lu(1393) = lu(1393) - lu(267) * lu(1332)
            lu(268) = 1._r8 / lu(268)
            lu(269) = lu(269) * lu(268)
            lu(270) = lu(270) * lu(268)
            lu(271) = lu(271) * lu(268)
            lu(466) = lu(466) - lu(269) * lu(461)
            lu(469) = lu(469) - lu(270) * lu(461)
            lu(470) = lu(470) - lu(271) * lu(461)
            lu(630) = lu(630) - lu(269) * lu(623)
            lu(633) = lu(633) - lu(270) * lu(623)
            lu(635) = lu(635) - lu(271) * lu(623)
            lu(680) = lu(680) - lu(269) * lu(671)
            lu(684) = lu(684) - lu(270) * lu(671)
            lu(688) = lu(688) - lu(271) * lu(671)
            lu(704) = lu(704) - lu(269) * lu(690)
            lu(708) = lu(708) - lu(270) * lu(690)
            lu(712) = lu(712) - lu(271) * lu(690)
            lu(725) = lu(725) - lu(269) * lu(714)
            lu(729) = lu(729) - lu(270) * lu(714)
            lu(733) = lu(733) - lu(271) * lu(714)
            lu(876) = lu(876) - lu(269) * lu(853)
            lu(881) = lu(881) - lu(270) * lu(853)
            lu(885) = lu(885) - lu(271) * lu(853)
            lu(1383) = lu(1383) - lu(269) * lu(1333)
            lu(1389) = lu(1389) - lu(270) * lu(1333)
            lu(1393) = lu(1393) - lu(271) * lu(1333)
            lu(272) = 1._r8 / lu(272)
            lu(273) = lu(273) * lu(272)
            lu(274) = lu(274) * lu(272)
            lu(275) = lu(275) * lu(272)
            lu(276) = lu(276) * lu(272)
            lu(277) = lu(277) * lu(272)
            lu(278) = lu(278) * lu(272)
            lu(279) = lu(279) * lu(272)
            lu(694) = lu(694) - lu(273) * lu(691)
            lu(696) = lu(696) - lu(274) * lu(691)
            lu(697) = lu(697) - lu(275) * lu(691)
            lu(699) = lu(699) - lu(276) * lu(691)
            lu(704) = lu(704) - lu(277) * lu(691)
            lu(708) = lu(708) - lu(278) * lu(691)
            lu(712) = lu(712) - lu(279) * lu(691)
            lu(1097) = lu(1097) - lu(273) * lu(1074)
            lu(1100) = lu(1100) - lu(274) * lu(1074)
            lu(1101) = lu(1101) - lu(275) * lu(1074)
            lu(1103) = lu(1103) - lu(276) * lu(1074)
            lu(1114) = lu(1114) - lu(277) * lu(1074)
            lu(1120) = lu(1120) - lu(278) * lu(1074)
            lu(1124) = lu(1124) - lu(279) * lu(1074)
            lu(1365) = lu(1365) - lu(273) * lu(1334)
            lu(1368) = lu(1368) - lu(274) * lu(1334)
            lu(1369) = lu(1369) - lu(275) * lu(1334)
            lu(1371) = lu(1371) - lu(276) * lu(1334)
            lu(1383) = lu(1383) - lu(277) * lu(1334)
            lu(1389) = lu(1389) - lu(278) * lu(1334)
            lu(1393) = lu(1393) - lu(279) * lu(1334)
            lu(280) = 1._r8 / lu(280)
            lu(281) = lu(281) * lu(280)
            lu(282) = lu(282) * lu(280)
            lu(283) = lu(283) * lu(280)
            lu(284) = lu(284) * lu(280)
            lu(285) = lu(285) * lu(280)
            lu(286) = lu(286) * lu(280)
            lu(287) = lu(287) * lu(280)
            lu(927) = lu(927) - lu(281) * lu(922)
            lu(940) = lu(940) - lu(282) * lu(922)
            lu(943) = lu(943) - lu(283) * lu(922)
            lu(950) = lu(950) - lu(284) * lu(922)
            lu(952) = lu(952) - lu(285) * lu(922)
            lu(954) = lu(954) - lu(286) * lu(922)
            lu(955) = - lu(287) * lu(922)
            lu(1183) = lu(1183) - lu(281) * lu(1182)
            lu(1187) = lu(1187) - lu(282) * lu(1182)
            lu(1189) = lu(1189) - lu(283) * lu(1182)
            lu(1196) = lu(1196) - lu(284) * lu(1182)
            lu(1198) = lu(1198) - lu(285) * lu(1182)
            lu(1200) = - lu(286) * lu(1182)
            lu(1201) = - lu(287) * lu(1182)
            lu(1267) = - lu(281) * lu(1264)
            lu(1278) = - lu(282) * lu(1264)
            lu(1281) = lu(1281) - lu(283) * lu(1264)
            lu(1288) = lu(1288) - lu(284) * lu(1264)
            lu(1290) = lu(1290) - lu(285) * lu(1264)
            lu(1292) = lu(1292) - lu(286) * lu(1264)
            lu(1293) = lu(1293) - lu(287) * lu(1264)
        END SUBROUTINE lu_fac07

        SUBROUTINE lu_fac08(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(288) = 1._r8 / lu(288)
            lu(289) = lu(289) * lu(288)
            lu(290) = lu(290) * lu(288)
            lu(291) = lu(291) * lu(288)
            lu(292) = lu(292) * lu(288)
            lu(293) = lu(293) * lu(288)
            lu(294) = lu(294) * lu(288)
            lu(295) = lu(295) * lu(288)
            lu(758) = - lu(289) * lu(756)
            lu(760) = lu(760) - lu(290) * lu(756)
            lu(765) = lu(765) - lu(291) * lu(756)
            lu(768) = lu(768) - lu(292) * lu(756)
            lu(769) = lu(769) - lu(293) * lu(756)
            lu(770) = lu(770) - lu(294) * lu(756)
            lu(773) = lu(773) - lu(295) * lu(756)
            lu(1272) = - lu(289) * lu(1265)
            lu(1274) = lu(1274) - lu(290) * lu(1265)
            lu(1285) = lu(1285) - lu(291) * lu(1265)
            lu(1290) = lu(1290) - lu(292) * lu(1265)
            lu(1291) = lu(1291) - lu(293) * lu(1265)
            lu(1292) = lu(1292) - lu(294) * lu(1265)
            lu(1295) = lu(1295) - lu(295) * lu(1265)
            lu(1363) = lu(1363) - lu(289) * lu(1335)
            lu(1372) = lu(1372) - lu(290) * lu(1335)
            lu(1383) = lu(1383) - lu(291) * lu(1335)
            lu(1388) = lu(1388) - lu(292) * lu(1335)
            lu(1389) = lu(1389) - lu(293) * lu(1335)
            lu(1390) = lu(1390) - lu(294) * lu(1335)
            lu(1393) = lu(1393) - lu(295) * lu(1335)
            lu(296) = 1._r8 / lu(296)
            lu(297) = lu(297) * lu(296)
            lu(298) = lu(298) * lu(296)
            lu(299) = lu(299) * lu(296)
            lu(300) = lu(300) * lu(296)
            lu(301) = lu(301) * lu(296)
            lu(302) = lu(302) * lu(296)
            lu(345) = lu(345) - lu(297) * lu(343)
            lu(346) = lu(346) - lu(298) * lu(343)
            lu(348) = lu(348) - lu(299) * lu(343)
            lu(349) = - lu(300) * lu(343)
            lu(350) = lu(350) - lu(301) * lu(343)
            lu(351) = lu(351) - lu(302) * lu(343)
            lu(473) = lu(473) - lu(297) * lu(472)
            lu(474) = lu(474) - lu(298) * lu(472)
            lu(476) = lu(476) - lu(299) * lu(472)
            lu(477) = - lu(300) * lu(472)
            lu(478) = lu(478) - lu(301) * lu(472)
            lu(479) = lu(479) - lu(302) * lu(472)
            lu(894) = lu(894) - lu(297) * lu(891)
            lu(895) = lu(895) - lu(298) * lu(891)
            lu(897) = lu(897) - lu(299) * lu(891)
            lu(900) = - lu(300) * lu(891)
            lu(903) = lu(903) - lu(301) * lu(891)
            lu(904) = lu(904) - lu(302) * lu(891)
            lu(928) = lu(928) - lu(297) * lu(923)
            lu(929) = lu(929) - lu(298) * lu(923)
            lu(932) = lu(932) - lu(299) * lu(923)
            lu(936) = lu(936) - lu(300) * lu(923)
            lu(942) = lu(942) - lu(301) * lu(923)
            lu(943) = lu(943) - lu(302) * lu(923)
            lu(303) = 1._r8 / lu(303)
            lu(304) = lu(304) * lu(303)
            lu(305) = lu(305) * lu(303)
            lu(306) = lu(306) * lu(303)
            lu(307) = lu(307) * lu(303)
            lu(308) = lu(308) * lu(303)
            lu(309) = lu(309) * lu(303)
            lu(310) = lu(310) * lu(303)
            lu(311) = lu(311) * lu(303)
            lu(994) = - lu(304) * lu(988)
            lu(1002) = lu(1002) - lu(305) * lu(988)
            lu(1007) = lu(1007) - lu(306) * lu(988)
            lu(1016) = lu(1016) - lu(307) * lu(988)
            lu(1018) = lu(1018) - lu(308) * lu(988)
            lu(1023) = lu(1023) - lu(309) * lu(988)
            lu(1024) = lu(1024) - lu(310) * lu(988)
            lu(1025) = lu(1025) - lu(311) * lu(988)
            lu(1356) = lu(1356) - lu(304) * lu(1336)
            lu(1365) = lu(1365) - lu(305) * lu(1336)
            lu(1371) = lu(1371) - lu(306) * lu(1336)
            lu(1381) = lu(1381) - lu(307) * lu(1336)
            lu(1383) = lu(1383) - lu(308) * lu(1336)
            lu(1388) = lu(1388) - lu(309) * lu(1336)
            lu(1389) = lu(1389) - lu(310) * lu(1336)
            lu(1390) = lu(1390) - lu(311) * lu(1336)
            lu(1403) = lu(1403) - lu(304) * lu(1398)
            lu(1411) = lu(1411) - lu(305) * lu(1398)
            lu(1416) = lu(1416) - lu(306) * lu(1398)
            lu(1425) = - lu(307) * lu(1398)
            lu(1427) = lu(1427) - lu(308) * lu(1398)
            lu(1432) = lu(1432) - lu(309) * lu(1398)
            lu(1433) = lu(1433) - lu(310) * lu(1398)
            lu(1434) = lu(1434) - lu(311) * lu(1398)
            lu(312) = 1._r8 / lu(312)
            lu(313) = lu(313) * lu(312)
            lu(314) = lu(314) * lu(312)
            lu(315) = lu(315) * lu(312)
            lu(316) = lu(316) * lu(312)
            lu(317) = lu(317) * lu(312)
            lu(318) = lu(318) * lu(312)
            lu(939) = lu(939) - lu(313) * lu(924)
            lu(943) = lu(943) - lu(314) * lu(924)
            lu(947) = lu(947) - lu(315) * lu(924)
            lu(948) = lu(948) - lu(316) * lu(924)
            lu(953) = lu(953) - lu(317) * lu(924)
            lu(956) = - lu(318) * lu(924)
            lu(1106) = lu(1106) - lu(313) * lu(1075)
            lu(1110) = lu(1110) - lu(314) * lu(1075)
            lu(1114) = lu(1114) - lu(315) * lu(1075)
            lu(1115) = lu(1115) - lu(316) * lu(1075)
            lu(1120) = lu(1120) - lu(317) * lu(1075)
            lu(1123) = lu(1123) - lu(318) * lu(1075)
            lu(1141) = lu(1141) - lu(313) * lu(1130)
            lu(1145) = - lu(314) * lu(1130)
            lu(1149) = lu(1149) - lu(315) * lu(1130)
            lu(1150) = lu(1150) - lu(316) * lu(1130)
            lu(1155) = lu(1155) - lu(317) * lu(1130)
            lu(1158) = lu(1158) - lu(318) * lu(1130)
            lu(1375) = lu(1375) - lu(313) * lu(1337)
            lu(1379) = lu(1379) - lu(314) * lu(1337)
            lu(1383) = lu(1383) - lu(315) * lu(1337)
            lu(1384) = lu(1384) - lu(316) * lu(1337)
            lu(1389) = lu(1389) - lu(317) * lu(1337)
            lu(1392) = lu(1392) - lu(318) * lu(1337)
            lu(319) = 1._r8 / lu(319)
            lu(320) = lu(320) * lu(319)
            lu(321) = lu(321) * lu(319)
            lu(322) = lu(322) * lu(319)
            lu(502) = - lu(320) * lu(493)
            lu(505) = lu(505) - lu(321) * lu(493)
            lu(507) = - lu(322) * lu(493)
            lu(592) = lu(592) - lu(320) * lu(585)
            lu(598) = lu(598) - lu(321) * lu(585)
            lu(600) = - lu(322) * lu(585)
            lu(762) = lu(762) - lu(320) * lu(757)
            lu(769) = lu(769) - lu(321) * lu(757)
            lu(772) = lu(772) - lu(322) * lu(757)
            lu(790) = lu(790) - lu(320) * lu(777)
            lu(797) = lu(797) - lu(321) * lu(777)
            lu(800) = lu(800) - lu(322) * lu(777)
            lu(872) = lu(872) - lu(320) * lu(854)
            lu(881) = lu(881) - lu(321) * lu(854)
            lu(884) = lu(884) - lu(322) * lu(854)
            lu(1012) = lu(1012) - lu(320) * lu(989)
            lu(1024) = lu(1024) - lu(321) * lu(989)
            lu(1027) = lu(1027) - lu(322) * lu(989)
            lu(1108) = lu(1108) - lu(320) * lu(1076)
            lu(1120) = lu(1120) - lu(321) * lu(1076)
            lu(1123) = lu(1123) - lu(322) * lu(1076)
            lu(1377) = lu(1377) - lu(320) * lu(1338)
            lu(1389) = lu(1389) - lu(321) * lu(1338)
            lu(1392) = lu(1392) - lu(322) * lu(1338)
            lu(324) = 1._r8 / lu(324)
            lu(325) = lu(325) * lu(324)
            lu(326) = lu(326) * lu(324)
            lu(327) = lu(327) * lu(324)
            lu(328) = lu(328) * lu(324)
            lu(329) = lu(329) * lu(324)
            lu(330) = lu(330) * lu(324)
            lu(331) = lu(331) * lu(324)
            lu(332) = lu(332) * lu(324)
            lu(333) = lu(333) * lu(324)
            lu(357) = lu(357) - lu(325) * lu(356)
            lu(358) = lu(358) - lu(326) * lu(356)
            lu(359) = lu(359) - lu(327) * lu(356)
            lu(360) = lu(360) - lu(328) * lu(356)
            lu(361) = lu(361) - lu(329) * lu(356)
            lu(363) = lu(363) - lu(330) * lu(356)
            lu(364) = lu(364) - lu(331) * lu(356)
            lu(367) = lu(367) - lu(332) * lu(356)
            lu(368) = lu(368) - lu(333) * lu(356)
            lu(1078) = lu(1078) - lu(325) * lu(1077)
            lu(1079) = lu(1079) - lu(326) * lu(1077)
            lu(1080) = lu(1080) - lu(327) * lu(1077)
            lu(1086) = lu(1086) - lu(328) * lu(1077)
            lu(1094) = lu(1094) - lu(329) * lu(1077)
            lu(1105) = lu(1105) - lu(330) * lu(1077)
            lu(1114) = lu(1114) - lu(331) * lu(1077)
            lu(1120) = lu(1120) - lu(332) * lu(1077)
            lu(1124) = lu(1124) - lu(333) * lu(1077)
            lu(1340) = lu(1340) - lu(325) * lu(1339)
            lu(1341) = lu(1341) - lu(326) * lu(1339)
            lu(1342) = lu(1342) - lu(327) * lu(1339)
            lu(1349) = lu(1349) - lu(328) * lu(1339)
            lu(1362) = lu(1362) - lu(329) * lu(1339)
            lu(1373) = lu(1373) - lu(330) * lu(1339)
            lu(1383) = lu(1383) - lu(331) * lu(1339)
            lu(1389) = lu(1389) - lu(332) * lu(1339)
            lu(1393) = lu(1393) - lu(333) * lu(1339)
        END SUBROUTINE lu_fac08

        SUBROUTINE lu_fac09(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(335) = 1._r8 / lu(335)
            lu(336) = lu(336) * lu(335)
            lu(337) = lu(337) * lu(335)
            lu(338) = lu(338) * lu(335)
            lu(339) = lu(339) * lu(335)
            lu(340) = lu(340) * lu(335)
            lu(341) = lu(341) * lu(335)
            lu(361) = lu(361) - lu(336) * lu(357)
            lu(363) = lu(363) - lu(337) * lu(357)
            lu(364) = lu(364) - lu(338) * lu(357)
            lu(365) = lu(365) - lu(339) * lu(357)
            lu(366) = lu(366) - lu(340) * lu(357)
            lu(367) = lu(367) - lu(341) * lu(357)
            lu(1094) = lu(1094) - lu(336) * lu(1078)
            lu(1105) = lu(1105) - lu(337) * lu(1078)
            lu(1114) = lu(1114) - lu(338) * lu(1078)
            lu(1118) = lu(1118) - lu(339) * lu(1078)
            lu(1119) = lu(1119) - lu(340) * lu(1078)
            lu(1120) = lu(1120) - lu(341) * lu(1078)
            lu(1230) = lu(1230) - lu(336) * lu(1213)
            lu(1240) = lu(1240) - lu(337) * lu(1213)
            lu(1248) = lu(1248) - lu(338) * lu(1213)
            lu(1252) = lu(1252) - lu(339) * lu(1213)
            lu(1253) = lu(1253) - lu(340) * lu(1213)
            lu(1254) = lu(1254) - lu(341) * lu(1213)
            lu(1362) = lu(1362) - lu(336) * lu(1340)
            lu(1373) = lu(1373) - lu(337) * lu(1340)
            lu(1383) = lu(1383) - lu(338) * lu(1340)
            lu(1387) = lu(1387) - lu(339) * lu(1340)
            lu(1388) = lu(1388) - lu(340) * lu(1340)
            lu(1389) = lu(1389) - lu(341) * lu(1340)
            lu(344) = 1._r8 / lu(344)
            lu(345) = lu(345) * lu(344)
            lu(346) = lu(346) * lu(344)
            lu(347) = lu(347) * lu(344)
            lu(348) = lu(348) * lu(344)
            lu(349) = lu(349) * lu(344)
            lu(350) = lu(350) * lu(344)
            lu(351) = lu(351) * lu(344)
            lu(352) = lu(352) * lu(344)
            lu(353) = lu(353) * lu(344)
            lu(423) = lu(423) - lu(345) * lu(422)
            lu(424) = lu(424) - lu(346) * lu(422)
            lu(425) = lu(425) - lu(347) * lu(422)
            lu(426) = lu(426) - lu(348) * lu(422)
            lu(427) = - lu(349) * lu(422)
            lu(428) = lu(428) - lu(350) * lu(422)
            lu(429) = lu(429) - lu(351) * lu(422)
            lu(430) = lu(430) - lu(352) * lu(422)
            lu(431) = lu(431) - lu(353) * lu(422)
            lu(894) = lu(894) - lu(345) * lu(892)
            lu(895) = lu(895) - lu(346) * lu(892)
            lu(896) = lu(896) - lu(347) * lu(892)
            lu(897) = lu(897) - lu(348) * lu(892)
            lu(900) = lu(900) - lu(349) * lu(892)
            lu(903) = lu(903) - lu(350) * lu(892)
            lu(904) = lu(904) - lu(351) * lu(892)
            lu(905) = lu(905) - lu(352) * lu(892)
            lu(912) = lu(912) - lu(353) * lu(892)
            lu(928) = lu(928) - lu(345) * lu(925)
            lu(929) = lu(929) - lu(346) * lu(925)
            lu(930) = lu(930) - lu(347) * lu(925)
            lu(932) = lu(932) - lu(348) * lu(925)
            lu(936) = lu(936) - lu(349) * lu(925)
            lu(942) = lu(942) - lu(350) * lu(925)
            lu(943) = lu(943) - lu(351) * lu(925)
            lu(944) = lu(944) - lu(352) * lu(925)
            lu(951) = lu(951) - lu(353) * lu(925)
            lu(358) = 1._r8 / lu(358)
            lu(359) = lu(359) * lu(358)
            lu(360) = lu(360) * lu(358)
            lu(361) = lu(361) * lu(358)
            lu(362) = lu(362) * lu(358)
            lu(363) = lu(363) * lu(358)
            lu(364) = lu(364) * lu(358)
            lu(365) = lu(365) * lu(358)
            lu(366) = lu(366) * lu(358)
            lu(367) = lu(367) * lu(358)
            lu(368) = lu(368) * lu(358)
            lu(1080) = lu(1080) - lu(359) * lu(1079)
            lu(1086) = lu(1086) - lu(360) * lu(1079)
            lu(1094) = lu(1094) - lu(361) * lu(1079)
            lu(1099) = lu(1099) - lu(362) * lu(1079)
            lu(1105) = lu(1105) - lu(363) * lu(1079)
            lu(1114) = lu(1114) - lu(364) * lu(1079)
            lu(1118) = lu(1118) - lu(365) * lu(1079)
            lu(1119) = lu(1119) - lu(366) * lu(1079)
            lu(1120) = lu(1120) - lu(367) * lu(1079)
            lu(1124) = lu(1124) - lu(368) * lu(1079)
            lu(1215) = lu(1215) - lu(359) * lu(1214)
            lu(1222) = lu(1222) - lu(360) * lu(1214)
            lu(1230) = lu(1230) - lu(361) * lu(1214)
            lu(1234) = lu(1234) - lu(362) * lu(1214)
            lu(1240) = lu(1240) - lu(363) * lu(1214)
            lu(1248) = lu(1248) - lu(364) * lu(1214)
            lu(1252) = lu(1252) - lu(365) * lu(1214)
            lu(1253) = lu(1253) - lu(366) * lu(1214)
            lu(1254) = lu(1254) - lu(367) * lu(1214)
            lu(1258) = lu(1258) - lu(368) * lu(1214)
            lu(1342) = lu(1342) - lu(359) * lu(1341)
            lu(1349) = lu(1349) - lu(360) * lu(1341)
            lu(1362) = lu(1362) - lu(361) * lu(1341)
            lu(1367) = lu(1367) - lu(362) * lu(1341)
            lu(1373) = lu(1373) - lu(363) * lu(1341)
            lu(1383) = lu(1383) - lu(364) * lu(1341)
            lu(1387) = lu(1387) - lu(365) * lu(1341)
            lu(1388) = lu(1388) - lu(366) * lu(1341)
            lu(1389) = lu(1389) - lu(367) * lu(1341)
            lu(1393) = lu(1393) - lu(368) * lu(1341)
            lu(369) = 1._r8 / lu(369)
            lu(370) = lu(370) * lu(369)
            lu(371) = lu(371) * lu(369)
            lu(372) = lu(372) * lu(369)
            lu(373) = lu(373) * lu(369)
            lu(374) = lu(374) * lu(369)
            lu(519) = - lu(370) * lu(516)
            lu(520) = - lu(371) * lu(516)
            lu(521) = lu(521) - lu(372) * lu(516)
            lu(526) = lu(526) - lu(373) * lu(516)
            lu(527) = lu(527) - lu(374) * lu(516)
            lu(541) = - lu(370) * lu(539)
            lu(544) = - lu(371) * lu(539)
            lu(545) = - lu(372) * lu(539)
            lu(549) = lu(549) - lu(373) * lu(539)
            lu(550) = - lu(374) * lu(539)
            lu(863) = lu(863) - lu(370) * lu(855)
            lu(871) = lu(871) - lu(371) * lu(855)
            lu(872) = lu(872) - lu(372) * lu(855)
            lu(881) = lu(881) - lu(373) * lu(855)
            lu(884) = lu(884) - lu(374) * lu(855)
            lu(1096) = lu(1096) - lu(370) * lu(1080)
            lu(1105) = lu(1105) - lu(371) * lu(1080)
            lu(1108) = lu(1108) - lu(372) * lu(1080)
            lu(1120) = lu(1120) - lu(373) * lu(1080)
            lu(1123) = lu(1123) - lu(374) * lu(1080)
            lu(1232) = lu(1232) - lu(370) * lu(1215)
            lu(1240) = lu(1240) - lu(371) * lu(1215)
            lu(1242) = lu(1242) - lu(372) * lu(1215)
            lu(1254) = lu(1254) - lu(373) * lu(1215)
            lu(1257) = lu(1257) - lu(374) * lu(1215)
            lu(1364) = lu(1364) - lu(370) * lu(1342)
            lu(1373) = lu(1373) - lu(371) * lu(1342)
            lu(1377) = lu(1377) - lu(372) * lu(1342)
            lu(1389) = lu(1389) - lu(373) * lu(1342)
            lu(1392) = lu(1392) - lu(374) * lu(1342)
            lu(375) = 1._r8 / lu(375)
            lu(376) = lu(376) * lu(375)
            lu(377) = lu(377) * lu(375)
            lu(378) = lu(378) * lu(375)
            lu(511) = lu(511) - lu(376) * lu(509)
            lu(512) = lu(512) - lu(377) * lu(509)
            lu(513) = lu(513) - lu(378) * lu(509)
            lu(674) = lu(674) - lu(376) * lu(672)
            lu(680) = lu(680) - lu(377) * lu(672)
            lu(684) = lu(684) - lu(378) * lu(672)
            lu(780) = lu(780) - lu(376) * lu(778)
            lu(793) = lu(793) - lu(377) * lu(778)
            lu(797) = lu(797) - lu(378) * lu(778)
            lu(860) = lu(860) - lu(376) * lu(856)
            lu(876) = lu(876) - lu(377) * lu(856)
            lu(881) = lu(881) - lu(378) * lu(856)
            lu(1093) = lu(1093) - lu(376) * lu(1081)
            lu(1114) = lu(1114) - lu(377) * lu(1081)
            lu(1120) = lu(1120) - lu(378) * lu(1081)
            lu(1137) = lu(1137) - lu(376) * lu(1131)
            lu(1149) = lu(1149) - lu(377) * lu(1131)
            lu(1155) = lu(1155) - lu(378) * lu(1131)
            lu(1229) = lu(1229) - lu(376) * lu(1216)
            lu(1248) = lu(1248) - lu(377) * lu(1216)
            lu(1254) = lu(1254) - lu(378) * lu(1216)
            lu(1271) = lu(1271) - lu(376) * lu(1266)
            lu(1285) = lu(1285) - lu(377) * lu(1266)
            lu(1291) = lu(1291) - lu(378) * lu(1266)
            lu(1361) = lu(1361) - lu(376) * lu(1343)
            lu(1383) = lu(1383) - lu(377) * lu(1343)
            lu(1389) = lu(1389) - lu(378) * lu(1343)
            lu(1407) = lu(1407) - lu(376) * lu(1399)
            lu(1427) = lu(1427) - lu(377) * lu(1399)
            lu(1433) = lu(1433) - lu(378) * lu(1399)
            lu(379) = 1._r8 / lu(379)
            lu(380) = lu(380) * lu(379)
            lu(381) = lu(381) * lu(379)
            lu(382) = lu(382) * lu(379)
            lu(383) = lu(383) * lu(379)
            lu(384) = lu(384) * lu(379)
            lu(385) = lu(385) * lu(379)
            lu(805) = lu(805) - lu(380) * lu(803)
            lu(807) = lu(807) - lu(381) * lu(803)
            lu(808) = lu(808) - lu(382) * lu(803)
            lu(809) = lu(809) - lu(383) * lu(803)
            lu(813) = lu(813) - lu(384) * lu(803)
            lu(817) = lu(817) - lu(385) * lu(803)
            lu(901) = lu(901) - lu(380) * lu(893)
            lu(903) = lu(903) - lu(381) * lu(893)
            lu(904) = lu(904) - lu(382) * lu(893)
            lu(906) = lu(906) - lu(383) * lu(893)
            lu(910) = lu(910) - lu(384) * lu(893)
            lu(914) = - lu(385) * lu(893)
            lu(938) = lu(938) - lu(380) * lu(926)
            lu(942) = lu(942) - lu(381) * lu(926)
            lu(943) = lu(943) - lu(382) * lu(926)
            lu(945) = lu(945) - lu(383) * lu(926)
            lu(949) = lu(949) - lu(384) * lu(926)
            lu(953) = lu(953) - lu(385) * lu(926)
            lu(1010) = lu(1010) - lu(380) * lu(990)
            lu(1013) = lu(1013) - lu(381) * lu(990)
            lu(1014) = lu(1014) - lu(382) * lu(990)
            lu(1016) = lu(1016) - lu(383) * lu(990)
            lu(1020) = lu(1020) - lu(384) * lu(990)
            lu(1024) = lu(1024) - lu(385) * lu(990)
            lu(1374) = lu(1374) - lu(380) * lu(1344)
            lu(1378) = lu(1378) - lu(381) * lu(1344)
            lu(1379) = lu(1379) - lu(382) * lu(1344)
            lu(1381) = lu(1381) - lu(383) * lu(1344)
            lu(1385) = lu(1385) - lu(384) * lu(1344)
            lu(1389) = lu(1389) - lu(385) * lu(1344)
        END SUBROUTINE lu_fac09

        SUBROUTINE lu_fac10(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(388) = 1._r8 / lu(388)
            lu(389) = lu(389) * lu(388)
            lu(390) = lu(390) * lu(388)
            lu(391) = lu(391) * lu(388)
            lu(392) = lu(392) * lu(388)
            lu(393) = lu(393) * lu(388)
            lu(394) = lu(394) * lu(388)
            lu(395) = lu(395) * lu(388)
            lu(993) = - lu(389) * lu(991)
            lu(1013) = lu(1013) - lu(390) * lu(991)
            lu(1018) = lu(1018) - lu(391) * lu(991)
            lu(1022) = lu(1022) - lu(392) * lu(991)
            lu(1023) = lu(1023) - lu(393) * lu(991)
            lu(1024) = lu(1024) - lu(394) * lu(991)
            lu(1028) = lu(1028) - lu(395) * lu(991)
            lu(1088) = lu(1088) - lu(389) * lu(1082)
            lu(1109) = lu(1109) - lu(390) * lu(1082)
            lu(1114) = lu(1114) - lu(391) * lu(1082)
            lu(1118) = lu(1118) - lu(392) * lu(1082)
            lu(1119) = lu(1119) - lu(393) * lu(1082)
            lu(1120) = lu(1120) - lu(394) * lu(1082)
            lu(1124) = lu(1124) - lu(395) * lu(1082)
            lu(1135) = - lu(389) * lu(1132)
            lu(1144) = lu(1144) - lu(390) * lu(1132)
            lu(1149) = lu(1149) - lu(391) * lu(1132)
            lu(1153) = - lu(392) * lu(1132)
            lu(1154) = - lu(393) * lu(1132)
            lu(1155) = lu(1155) - lu(394) * lu(1132)
            lu(1159) = lu(1159) - lu(395) * lu(1132)
            lu(1224) = lu(1224) - lu(389) * lu(1217)
            lu(1243) = lu(1243) - lu(390) * lu(1217)
            lu(1248) = lu(1248) - lu(391) * lu(1217)
            lu(1252) = lu(1252) - lu(392) * lu(1217)
            lu(1253) = lu(1253) - lu(393) * lu(1217)
            lu(1254) = lu(1254) - lu(394) * lu(1217)
            lu(1258) = lu(1258) - lu(395) * lu(1217)
            lu(1353) = lu(1353) - lu(389) * lu(1345)
            lu(1378) = lu(1378) - lu(390) * lu(1345)
            lu(1383) = lu(1383) - lu(391) * lu(1345)
            lu(1387) = lu(1387) - lu(392) * lu(1345)
            lu(1388) = lu(1388) - lu(393) * lu(1345)
            lu(1389) = lu(1389) - lu(394) * lu(1345)
            lu(1393) = lu(1393) - lu(395) * lu(1345)
            lu(397) = 1._r8 / lu(397)
            lu(398) = lu(398) * lu(397)
            lu(399) = lu(399) * lu(397)
            lu(400) = lu(400) * lu(397)
            lu(401) = lu(401) * lu(397)
            lu(402) = lu(402) * lu(397)
            lu(403) = lu(403) * lu(397)
            lu(404) = lu(404) * lu(397)
            lu(824) = lu(824) - lu(398) * lu(821)
            lu(825) = lu(825) - lu(399) * lu(821)
            lu(826) = lu(826) - lu(400) * lu(821)
            lu(829) = lu(829) - lu(401) * lu(821)
            lu(831) = - lu(402) * lu(821)
            lu(833) = lu(833) - lu(403) * lu(821)
            lu(836) = lu(836) - lu(404) * lu(821)
            lu(939) = lu(939) - lu(398) * lu(927)
            lu(940) = lu(940) - lu(399) * lu(927)
            lu(943) = lu(943) - lu(400) * lu(927)
            lu(948) = lu(948) - lu(401) * lu(927)
            lu(950) = lu(950) - lu(402) * lu(927)
            lu(953) = lu(953) - lu(403) * lu(927)
            lu(956) = lu(956) - lu(404) * lu(927)
            lu(1106) = lu(1106) - lu(398) * lu(1083)
            lu(1107) = lu(1107) - lu(399) * lu(1083)
            lu(1110) = lu(1110) - lu(400) * lu(1083)
            lu(1115) = lu(1115) - lu(401) * lu(1083)
            lu(1117) = lu(1117) - lu(402) * lu(1083)
            lu(1120) = lu(1120) - lu(403) * lu(1083)
            lu(1123) = lu(1123) - lu(404) * lu(1083)
            lu(1186) = - lu(398) * lu(1183)
            lu(1187) = lu(1187) - lu(399) * lu(1183)
            lu(1189) = lu(1189) - lu(400) * lu(1183)
            lu(1194) = lu(1194) - lu(401) * lu(1183)
            lu(1196) = lu(1196) - lu(402) * lu(1183)
            lu(1199) = lu(1199) - lu(403) * lu(1183)
            lu(1202) = - lu(404) * lu(1183)
            lu(1277) = - lu(398) * lu(1267)
            lu(1278) = lu(1278) - lu(399) * lu(1267)
            lu(1281) = lu(1281) - lu(400) * lu(1267)
            lu(1286) = - lu(401) * lu(1267)
            lu(1288) = lu(1288) - lu(402) * lu(1267)
            lu(1291) = lu(1291) - lu(403) * lu(1267)
            lu(1294) = lu(1294) - lu(404) * lu(1267)
            lu(405) = 1._r8 / lu(405)
            lu(406) = lu(406) * lu(405)
            lu(407) = lu(407) * lu(405)
            lu(408) = lu(408) * lu(405)
            lu(409) = lu(409) * lu(405)
            lu(410) = lu(410) * lu(405)
            lu(411) = lu(411) * lu(405)
            lu(412) = lu(412) * lu(405)
            lu(424) = lu(424) - lu(406) * lu(423)
            lu(425) = lu(425) - lu(407) * lu(423)
            lu(426) = lu(426) - lu(408) * lu(423)
            lu(428) = lu(428) - lu(409) * lu(423)
            lu(429) = lu(429) - lu(410) * lu(423)
            lu(430) = lu(430) - lu(411) * lu(423)
            lu(431) = lu(431) - lu(412) * lu(423)
            lu(474) = lu(474) - lu(406) * lu(473)
            lu(475) = lu(475) - lu(407) * lu(473)
            lu(476) = lu(476) - lu(408) * lu(473)
            lu(478) = lu(478) - lu(409) * lu(473)
            lu(479) = lu(479) - lu(410) * lu(473)
            lu(480) = - lu(411) * lu(473)
            lu(482) = lu(482) - lu(412) * lu(473)
            lu(895) = lu(895) - lu(406) * lu(894)
            lu(896) = lu(896) - lu(407) * lu(894)
            lu(897) = lu(897) - lu(408) * lu(894)
            lu(903) = lu(903) - lu(409) * lu(894)
            lu(904) = lu(904) - lu(410) * lu(894)
            lu(905) = lu(905) - lu(411) * lu(894)
            lu(912) = lu(912) - lu(412) * lu(894)
            lu(929) = lu(929) - lu(406) * lu(928)
            lu(930) = lu(930) - lu(407) * lu(928)
            lu(932) = lu(932) - lu(408) * lu(928)
            lu(942) = lu(942) - lu(409) * lu(928)
            lu(943) = lu(943) - lu(410) * lu(928)
            lu(944) = lu(944) - lu(411) * lu(928)
            lu(951) = lu(951) - lu(412) * lu(928)
            lu(1219) = lu(1219) - lu(406) * lu(1218)
            lu(1220) = lu(1220) - lu(407) * lu(1218)
            lu(1223) = lu(1223) - lu(408) * lu(1218)
            lu(1243) = lu(1243) - lu(409) * lu(1218)
            lu(1244) = lu(1244) - lu(410) * lu(1218)
            lu(1245) = - lu(411) * lu(1218)
            lu(1252) = lu(1252) - lu(412) * lu(1218)
            lu(414) = 1._r8 / lu(414)
            lu(415) = lu(415) * lu(414)
            lu(416) = lu(416) * lu(414)
            lu(417) = lu(417) * lu(414)
            lu(418) = lu(418) * lu(414)
            lu(419) = lu(419) * lu(414)
            lu(420) = lu(420) * lu(414)
            lu(425) = lu(425) - lu(415) * lu(424)
            lu(426) = lu(426) - lu(416) * lu(424)
            lu(428) = lu(428) - lu(417) * lu(424)
            lu(429) = lu(429) - lu(418) * lu(424)
            lu(430) = lu(430) - lu(419) * lu(424)
            lu(431) = lu(431) - lu(420) * lu(424)
            lu(475) = lu(475) - lu(415) * lu(474)
            lu(476) = lu(476) - lu(416) * lu(474)
            lu(478) = lu(478) - lu(417) * lu(474)
            lu(479) = lu(479) - lu(418) * lu(474)
            lu(480) = lu(480) - lu(419) * lu(474)
            lu(482) = lu(482) - lu(420) * lu(474)
            lu(896) = lu(896) - lu(415) * lu(895)
            lu(897) = lu(897) - lu(416) * lu(895)
            lu(903) = lu(903) - lu(417) * lu(895)
            lu(904) = lu(904) - lu(418) * lu(895)
            lu(905) = lu(905) - lu(419) * lu(895)
            lu(912) = lu(912) - lu(420) * lu(895)
            lu(930) = lu(930) - lu(415) * lu(929)
            lu(932) = lu(932) - lu(416) * lu(929)
            lu(942) = lu(942) - lu(417) * lu(929)
            lu(943) = lu(943) - lu(418) * lu(929)
            lu(944) = lu(944) - lu(419) * lu(929)
            lu(951) = lu(951) - lu(420) * lu(929)
            lu(1220) = lu(1220) - lu(415) * lu(1219)
            lu(1223) = lu(1223) - lu(416) * lu(1219)
            lu(1243) = lu(1243) - lu(417) * lu(1219)
            lu(1244) = lu(1244) - lu(418) * lu(1219)
            lu(1245) = lu(1245) - lu(419) * lu(1219)
            lu(1252) = lu(1252) - lu(420) * lu(1219)
            lu(425) = 1._r8 / lu(425)
            lu(426) = lu(426) * lu(425)
            lu(427) = lu(427) * lu(425)
            lu(428) = lu(428) * lu(425)
            lu(429) = lu(429) * lu(425)
            lu(430) = lu(430) * lu(425)
            lu(431) = lu(431) * lu(425)
            lu(476) = lu(476) - lu(426) * lu(475)
            lu(477) = lu(477) - lu(427) * lu(475)
            lu(478) = lu(478) - lu(428) * lu(475)
            lu(479) = lu(479) - lu(429) * lu(475)
            lu(480) = lu(480) - lu(430) * lu(475)
            lu(482) = lu(482) - lu(431) * lu(475)
            lu(897) = lu(897) - lu(426) * lu(896)
            lu(900) = lu(900) - lu(427) * lu(896)
            lu(903) = lu(903) - lu(428) * lu(896)
            lu(904) = lu(904) - lu(429) * lu(896)
            lu(905) = lu(905) - lu(430) * lu(896)
            lu(912) = lu(912) - lu(431) * lu(896)
            lu(932) = lu(932) - lu(426) * lu(930)
            lu(936) = lu(936) - lu(427) * lu(930)
            lu(942) = lu(942) - lu(428) * lu(930)
            lu(943) = lu(943) - lu(429) * lu(930)
            lu(944) = lu(944) - lu(430) * lu(930)
            lu(951) = lu(951) - lu(431) * lu(930)
            lu(1223) = lu(1223) - lu(426) * lu(1220)
            lu(1229) = lu(1229) - lu(427) * lu(1220)
            lu(1243) = lu(1243) - lu(428) * lu(1220)
            lu(1244) = lu(1244) - lu(429) * lu(1220)
            lu(1245) = lu(1245) - lu(430) * lu(1220)
            lu(1252) = lu(1252) - lu(431) * lu(1220)
            lu(433) = 1._r8 / lu(433)
            lu(434) = lu(434) * lu(433)
            lu(435) = lu(435) * lu(433)
            lu(436) = lu(436) * lu(433)
            lu(437) = lu(437) * lu(433)
            lu(438) = lu(438) * lu(433)
            lu(439) = lu(439) * lu(433)
            lu(440) = lu(440) * lu(433)
            lu(650) = lu(650) - lu(434) * lu(649)
            lu(652) = - lu(435) * lu(649)
            lu(656) = lu(656) - lu(436) * lu(649)
            lu(657) = lu(657) - lu(437) * lu(649)
            lu(658) = - lu(438) * lu(649)
            lu(659) = - lu(439) * lu(649)
            lu(660) = lu(660) - lu(440) * lu(649)
            lu(964) = lu(964) - lu(434) * lu(962)
            lu(967) = lu(967) - lu(435) * lu(962)
            lu(975) = lu(975) - lu(436) * lu(962)
            lu(979) = lu(979) - lu(437) * lu(962)
            lu(980) = - lu(438) * lu(962)
            lu(981) = - lu(439) * lu(962)
            lu(982) = lu(982) - lu(440) * lu(962)
            lu(1366) = lu(1366) - lu(434) * lu(1346)
            lu(1377) = lu(1377) - lu(435) * lu(1346)
            lu(1385) = lu(1385) - lu(436) * lu(1346)
            lu(1389) = lu(1389) - lu(437) * lu(1346)
            lu(1390) = lu(1390) - lu(438) * lu(1346)
            lu(1391) = lu(1391) - lu(439) * lu(1346)
            lu(1392) = lu(1392) - lu(440) * lu(1346)
            lu(1440) = - lu(434) * lu(1439)
            lu(1443) = - lu(435) * lu(1439)
            lu(1451) = lu(1451) - lu(436) * lu(1439)
            lu(1455) = lu(1455) - lu(437) * lu(1439)
            lu(1456) = lu(1456) - lu(438) * lu(1439)
            lu(1457) = lu(1457) - lu(439) * lu(1439)
            lu(1458) = lu(1458) - lu(440) * lu(1439)
            lu(1465) = lu(1465) - lu(434) * lu(1463)
            lu(1469) = - lu(435) * lu(1463)
            lu(1477) = lu(1477) - lu(436) * lu(1463)
            lu(1481) = lu(1481) - lu(437) * lu(1463)
            lu(1482) = - lu(438) * lu(1463)
            lu(1483) = - lu(439) * lu(1463)
            lu(1484) = lu(1484) - lu(440) * lu(1463)
        END SUBROUTINE lu_fac10

        SUBROUTINE lu_fac11(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(442) = 1._r8 / lu(442)
            lu(443) = lu(443) * lu(442)
            lu(444) = lu(444) * lu(442)
            lu(445) = lu(445) * lu(442)
            lu(446) = lu(446) * lu(442)
            lu(447) = lu(447) * lu(442)
            lu(448) = lu(448) * lu(442)
            lu(449) = lu(449) * lu(442)
            lu(450) = lu(450) * lu(442)
            lu(451) = lu(451) * lu(442)
            lu(589) = lu(589) - lu(443) * lu(586)
            lu(590) = - lu(444) * lu(586)
            lu(593) = - lu(445) * lu(586)
            lu(595) = lu(595) - lu(446) * lu(586)
            lu(596) = - lu(447) * lu(586)
            lu(597) = lu(597) - lu(448) * lu(586)
            lu(598) = lu(598) - lu(449) * lu(586)
            lu(600) = lu(600) - lu(450) * lu(586)
            lu(601) = lu(601) - lu(451) * lu(586)
            lu(1094) = lu(1094) - lu(443) * lu(1084)
            lu(1095) = lu(1095) - lu(444) * lu(1084)
            lu(1109) = lu(1109) - lu(445) * lu(1084)
            lu(1114) = lu(1114) - lu(446) * lu(1084)
            lu(1118) = lu(1118) - lu(447) * lu(1084)
            lu(1119) = lu(1119) - lu(448) * lu(1084)
            lu(1120) = lu(1120) - lu(449) * lu(1084)
            lu(1123) = lu(1123) - lu(450) * lu(1084)
            lu(1124) = lu(1124) - lu(451) * lu(1084)
            lu(1230) = lu(1230) - lu(443) * lu(1221)
            lu(1231) = lu(1231) - lu(444) * lu(1221)
            lu(1243) = lu(1243) - lu(445) * lu(1221)
            lu(1248) = lu(1248) - lu(446) * lu(1221)
            lu(1252) = lu(1252) - lu(447) * lu(1221)
            lu(1253) = lu(1253) - lu(448) * lu(1221)
            lu(1254) = lu(1254) - lu(449) * lu(1221)
            lu(1257) = lu(1257) - lu(450) * lu(1221)
            lu(1258) = lu(1258) - lu(451) * lu(1221)
            lu(1362) = lu(1362) - lu(443) * lu(1347)
            lu(1363) = lu(1363) - lu(444) * lu(1347)
            lu(1378) = lu(1378) - lu(445) * lu(1347)
            lu(1383) = lu(1383) - lu(446) * lu(1347)
            lu(1387) = lu(1387) - lu(447) * lu(1347)
            lu(1388) = lu(1388) - lu(448) * lu(1347)
            lu(1389) = lu(1389) - lu(449) * lu(1347)
            lu(1392) = lu(1392) - lu(450) * lu(1347)
            lu(1393) = lu(1393) - lu(451) * lu(1347)
            lu(452) = 1._r8 / lu(452)
            lu(453) = lu(453) * lu(452)
            lu(454) = lu(454) * lu(452)
            lu(455) = lu(455) * lu(452)
            lu(456) = lu(456) * lu(452)
            lu(457) = lu(457) * lu(452)
            lu(458) = lu(458) * lu(452)
            lu(839) = lu(839) - lu(453) * lu(837)
            lu(841) = - lu(454) * lu(837)
            lu(842) = - lu(455) * lu(837)
            lu(845) = - lu(456) * lu(837)
            lu(847) = - lu(457) * lu(837)
            lu(848) = - lu(458) * lu(837)
            lu(940) = lu(940) - lu(453) * lu(931)
            lu(943) = lu(943) - lu(454) * lu(931)
            lu(944) = lu(944) - lu(455) * lu(931)
            lu(949) = lu(949) - lu(456) * lu(931)
            lu(953) = lu(953) - lu(457) * lu(931)
            lu(956) = lu(956) - lu(458) * lu(931)
            lu(966) = lu(966) - lu(453) * lu(963)
            lu(969) = lu(969) - lu(454) * lu(963)
            lu(970) = lu(970) - lu(455) * lu(963)
            lu(975) = lu(975) - lu(456) * lu(963)
            lu(979) = lu(979) - lu(457) * lu(963)
            lu(982) = lu(982) - lu(458) * lu(963)
            lu(1107) = lu(1107) - lu(453) * lu(1085)
            lu(1110) = lu(1110) - lu(454) * lu(1085)
            lu(1111) = - lu(455) * lu(1085)
            lu(1116) = lu(1116) - lu(456) * lu(1085)
            lu(1120) = lu(1120) - lu(457) * lu(1085)
            lu(1123) = lu(1123) - lu(458) * lu(1085)
            lu(1376) = lu(1376) - lu(453) * lu(1348)
            lu(1379) = lu(1379) - lu(454) * lu(1348)
            lu(1380) = lu(1380) - lu(455) * lu(1348)
            lu(1385) = lu(1385) - lu(456) * lu(1348)
            lu(1389) = lu(1389) - lu(457) * lu(1348)
            lu(1392) = lu(1392) - lu(458) * lu(1348)
            lu(1492) = lu(1492) - lu(453) * lu(1488)
            lu(1495) = lu(1495) - lu(454) * lu(1488)
            lu(1496) = - lu(455) * lu(1488)
            lu(1501) = lu(1501) - lu(456) * lu(1488)
            lu(1505) = lu(1505) - lu(457) * lu(1488)
            lu(1508) = lu(1508) - lu(458) * lu(1488)
            lu(462) = 1._r8 / lu(462)
            lu(463) = lu(463) * lu(462)
            lu(464) = lu(464) * lu(462)
            lu(465) = lu(465) * lu(462)
            lu(466) = lu(466) * lu(462)
            lu(467) = lu(467) * lu(462)
            lu(468) = lu(468) * lu(462)
            lu(469) = lu(469) * lu(462)
            lu(470) = lu(470) * lu(462)
            lu(861) = lu(861) - lu(463) * lu(857)
            lu(872) = lu(872) - lu(464) * lu(857)
            lu(873) = lu(873) - lu(465) * lu(857)
            lu(876) = lu(876) - lu(466) * lu(857)
            lu(879) = lu(879) - lu(467) * lu(857)
            lu(880) = lu(880) - lu(468) * lu(857)
            lu(881) = lu(881) - lu(469) * lu(857)
            lu(885) = lu(885) - lu(470) * lu(857)
            lu(1094) = lu(1094) - lu(463) * lu(1086)
            lu(1108) = lu(1108) - lu(464) * lu(1086)
            lu(1109) = lu(1109) - lu(465) * lu(1086)
            lu(1114) = lu(1114) - lu(466) * lu(1086)
            lu(1118) = lu(1118) - lu(467) * lu(1086)
            lu(1119) = lu(1119) - lu(468) * lu(1086)
            lu(1120) = lu(1120) - lu(469) * lu(1086)
            lu(1124) = lu(1124) - lu(470) * lu(1086)
            lu(1138) = - lu(463) * lu(1133)
            lu(1143) = lu(1143) - lu(464) * lu(1133)
            lu(1144) = lu(1144) - lu(465) * lu(1133)
            lu(1149) = lu(1149) - lu(466) * lu(1133)
            lu(1153) = lu(1153) - lu(467) * lu(1133)
            lu(1154) = lu(1154) - lu(468) * lu(1133)
            lu(1155) = lu(1155) - lu(469) * lu(1133)
            lu(1159) = lu(1159) - lu(470) * lu(1133)
            lu(1230) = lu(1230) - lu(463) * lu(1222)
            lu(1242) = lu(1242) - lu(464) * lu(1222)
            lu(1243) = lu(1243) - lu(465) * lu(1222)
            lu(1248) = lu(1248) - lu(466) * lu(1222)
            lu(1252) = lu(1252) - lu(467) * lu(1222)
            lu(1253) = lu(1253) - lu(468) * lu(1222)
            lu(1254) = lu(1254) - lu(469) * lu(1222)
            lu(1258) = lu(1258) - lu(470) * lu(1222)
            lu(1362) = lu(1362) - lu(463) * lu(1349)
            lu(1377) = lu(1377) - lu(464) * lu(1349)
            lu(1378) = lu(1378) - lu(465) * lu(1349)
            lu(1383) = lu(1383) - lu(466) * lu(1349)
            lu(1387) = lu(1387) - lu(467) * lu(1349)
            lu(1388) = lu(1388) - lu(468) * lu(1349)
            lu(1389) = lu(1389) - lu(469) * lu(1349)
            lu(1393) = lu(1393) - lu(470) * lu(1349)
            lu(476) = 1._r8 / lu(476)
            lu(477) = lu(477) * lu(476)
            lu(478) = lu(478) * lu(476)
            lu(479) = lu(479) * lu(476)
            lu(480) = lu(480) * lu(476)
            lu(481) = lu(481) * lu(476)
            lu(482) = lu(482) * lu(476)
            lu(483) = lu(483) * lu(476)
            lu(484) = lu(484) * lu(476)
            lu(900) = lu(900) - lu(477) * lu(897)
            lu(903) = lu(903) - lu(478) * lu(897)
            lu(904) = lu(904) - lu(479) * lu(897)
            lu(905) = lu(905) - lu(480) * lu(897)
            lu(910) = lu(910) - lu(481) * lu(897)
            lu(912) = lu(912) - lu(482) * lu(897)
            lu(913) = - lu(483) * lu(897)
            lu(914) = lu(914) - lu(484) * lu(897)
            lu(936) = lu(936) - lu(477) * lu(932)
            lu(942) = lu(942) - lu(478) * lu(932)
            lu(943) = lu(943) - lu(479) * lu(932)
            lu(944) = lu(944) - lu(480) * lu(932)
            lu(949) = lu(949) - lu(481) * lu(932)
            lu(951) = lu(951) - lu(482) * lu(932)
            lu(952) = lu(952) - lu(483) * lu(932)
            lu(953) = lu(953) - lu(484) * lu(932)
            lu(1229) = lu(1229) - lu(477) * lu(1223)
            lu(1243) = lu(1243) - lu(478) * lu(1223)
            lu(1244) = lu(1244) - lu(479) * lu(1223)
            lu(1245) = lu(1245) - lu(480) * lu(1223)
            lu(1250) = - lu(481) * lu(1223)
            lu(1252) = lu(1252) - lu(482) * lu(1223)
            lu(1253) = lu(1253) - lu(483) * lu(1223)
            lu(1254) = lu(1254) - lu(484) * lu(1223)
            lu(1271) = lu(1271) - lu(477) * lu(1268)
            lu(1280) = lu(1280) - lu(478) * lu(1268)
            lu(1281) = lu(1281) - lu(479) * lu(1268)
            lu(1282) = - lu(480) * lu(1268)
            lu(1287) = - lu(481) * lu(1268)
            lu(1289) = lu(1289) - lu(482) * lu(1268)
            lu(1290) = lu(1290) - lu(483) * lu(1268)
            lu(1291) = lu(1291) - lu(484) * lu(1268)
            lu(1361) = lu(1361) - lu(477) * lu(1350)
            lu(1378) = lu(1378) - lu(478) * lu(1350)
            lu(1379) = lu(1379) - lu(479) * lu(1350)
            lu(1380) = lu(1380) - lu(480) * lu(1350)
            lu(1385) = lu(1385) - lu(481) * lu(1350)
            lu(1387) = lu(1387) - lu(482) * lu(1350)
            lu(1388) = lu(1388) - lu(483) * lu(1350)
            lu(1389) = lu(1389) - lu(484) * lu(1350)
            lu(486) = 1._r8 / lu(486)
            lu(487) = lu(487) * lu(486)
            lu(488) = lu(488) * lu(486)
            lu(489) = lu(489) * lu(486)
            lu(490) = lu(490) * lu(486)
            lu(491) = lu(491) * lu(486)
            lu(492) = lu(492) * lu(486)
            lu(561) = lu(561) - lu(487) * lu(559)
            lu(562) = lu(562) - lu(488) * lu(559)
            lu(563) = lu(563) - lu(489) * lu(559)
            lu(564) = lu(564) - lu(490) * lu(559)
            lu(566) = lu(566) - lu(491) * lu(559)
            lu(569) = - lu(492) * lu(559)
            lu(824) = lu(824) - lu(487) * lu(822)
            lu(826) = lu(826) - lu(488) * lu(822)
            lu(828) = - lu(489) * lu(822)
            lu(829) = lu(829) - lu(490) * lu(822)
            lu(833) = lu(833) - lu(491) * lu(822)
            lu(836) = lu(836) - lu(492) * lu(822)
            lu(939) = lu(939) - lu(487) * lu(933)
            lu(943) = lu(943) - lu(488) * lu(933)
            lu(946) = lu(946) - lu(489) * lu(933)
            lu(948) = lu(948) - lu(490) * lu(933)
            lu(953) = lu(953) - lu(491) * lu(933)
            lu(956) = lu(956) - lu(492) * lu(933)
            lu(1037) = lu(1037) - lu(487) * lu(1033)
            lu(1041) = lu(1041) - lu(488) * lu(1033)
            lu(1044) = lu(1044) - lu(489) * lu(1033)
            lu(1046) = lu(1046) - lu(490) * lu(1033)
            lu(1051) = lu(1051) - lu(491) * lu(1033)
            lu(1054) = - lu(492) * lu(1033)
            lu(1106) = lu(1106) - lu(487) * lu(1087)
            lu(1110) = lu(1110) - lu(488) * lu(1087)
            lu(1113) = lu(1113) - lu(489) * lu(1087)
            lu(1115) = lu(1115) - lu(490) * lu(1087)
            lu(1120) = lu(1120) - lu(491) * lu(1087)
            lu(1123) = lu(1123) - lu(492) * lu(1087)
            lu(1141) = lu(1141) - lu(487) * lu(1134)
            lu(1145) = lu(1145) - lu(488) * lu(1134)
            lu(1148) = lu(1148) - lu(489) * lu(1134)
            lu(1150) = lu(1150) - lu(490) * lu(1134)
            lu(1155) = lu(1155) - lu(491) * lu(1134)
            lu(1158) = lu(1158) - lu(492) * lu(1134)
            lu(1375) = lu(1375) - lu(487) * lu(1351)
            lu(1379) = lu(1379) - lu(488) * lu(1351)
            lu(1382) = lu(1382) - lu(489) * lu(1351)
            lu(1384) = lu(1384) - lu(490) * lu(1351)
            lu(1389) = lu(1389) - lu(491) * lu(1351)
            lu(1392) = lu(1392) - lu(492) * lu(1351)
        END SUBROUTINE lu_fac11

        SUBROUTINE lu_fac12(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(494) = 1._r8 / lu(494)
            lu(495) = lu(495) * lu(494)
            lu(496) = lu(496) * lu(494)
            lu(497) = lu(497) * lu(494)
            lu(498) = lu(498) * lu(494)
            lu(499) = lu(499) * lu(494)
            lu(500) = lu(500) * lu(494)
            lu(501) = lu(501) * lu(494)
            lu(502) = lu(502) * lu(494)
            lu(503) = lu(503) * lu(494)
            lu(504) = lu(504) * lu(494)
            lu(505) = lu(505) * lu(494)
            lu(506) = lu(506) * lu(494)
            lu(507) = lu(507) * lu(494)
            lu(508) = lu(508) * lu(494)
            lu(996) = - lu(495) * lu(992)
            lu(997) = lu(997) - lu(496) * lu(992)
            lu(998) = lu(998) - lu(497) * lu(992)
            lu(1002) = lu(1002) - lu(498) * lu(992)
            lu(1005) = - lu(499) * lu(992)
            lu(1007) = lu(1007) - lu(500) * lu(992)
            lu(1008) = lu(1008) - lu(501) * lu(992)
            lu(1012) = lu(1012) - lu(502) * lu(992)
            lu(1016) = lu(1016) - lu(503) * lu(992)
            lu(1018) = lu(1018) - lu(504) * lu(992)
            lu(1024) = lu(1024) - lu(505) * lu(992)
            lu(1025) = lu(1025) - lu(506) * lu(992)
            lu(1027) = lu(1027) - lu(507) * lu(992)
            lu(1028) = lu(1028) - lu(508) * lu(992)
            lu(1359) = - lu(495) * lu(1352)
            lu(1360) = lu(1360) - lu(496) * lu(1352)
            lu(1361) = lu(1361) - lu(497) * lu(1352)
            lu(1365) = lu(1365) - lu(498) * lu(1352)
            lu(1369) = lu(1369) - lu(499) * lu(1352)
            lu(1371) = lu(1371) - lu(500) * lu(1352)
            lu(1372) = lu(1372) - lu(501) * lu(1352)
            lu(1377) = lu(1377) - lu(502) * lu(1352)
            lu(1381) = lu(1381) - lu(503) * lu(1352)
            lu(1383) = lu(1383) - lu(504) * lu(1352)
            lu(1389) = lu(1389) - lu(505) * lu(1352)
            lu(1390) = lu(1390) - lu(506) * lu(1352)
            lu(1392) = lu(1392) - lu(507) * lu(1352)
            lu(1393) = lu(1393) - lu(508) * lu(1352)
            lu(1405) = lu(1405) - lu(495) * lu(1400)
            lu(1406) = lu(1406) - lu(496) * lu(1400)
            lu(1407) = lu(1407) - lu(497) * lu(1400)
            lu(1411) = lu(1411) - lu(498) * lu(1400)
            lu(1414) = lu(1414) - lu(499) * lu(1400)
            lu(1416) = lu(1416) - lu(500) * lu(1400)
            lu(1417) = lu(1417) - lu(501) * lu(1400)
            lu(1421) = - lu(502) * lu(1400)
            lu(1425) = lu(1425) - lu(503) * lu(1400)
            lu(1427) = lu(1427) - lu(504) * lu(1400)
            lu(1433) = lu(1433) - lu(505) * lu(1400)
            lu(1434) = lu(1434) - lu(506) * lu(1400)
            lu(1436) = - lu(507) * lu(1400)
            lu(1437) = lu(1437) - lu(508) * lu(1400)
            lu(510) = 1._r8 / lu(510)
            lu(511) = lu(511) * lu(510)
            lu(512) = lu(512) * lu(510)
            lu(513) = lu(513) * lu(510)
            lu(514) = lu(514) * lu(510)
            lu(674) = lu(674) - lu(511) * lu(673)
            lu(680) = lu(680) - lu(512) * lu(673)
            lu(684) = lu(684) - lu(513) * lu(673)
            lu(688) = lu(688) - lu(514) * lu(673)
            lu(717) = lu(717) - lu(511) * lu(715)
            lu(725) = lu(725) - lu(512) * lu(715)
            lu(729) = lu(729) - lu(513) * lu(715)
            lu(733) = lu(733) - lu(514) * lu(715)
            lu(780) = lu(780) - lu(511) * lu(779)
            lu(793) = lu(793) - lu(512) * lu(779)
            lu(797) = lu(797) - lu(513) * lu(779)
            lu(801) = lu(801) - lu(514) * lu(779)
            lu(860) = lu(860) - lu(511) * lu(858)
            lu(876) = lu(876) - lu(512) * lu(858)
            lu(881) = lu(881) - lu(513) * lu(858)
            lu(885) = lu(885) - lu(514) * lu(858)
            lu(900) = lu(900) - lu(511) * lu(898)
            lu(908) = lu(908) - lu(512) * lu(898)
            lu(914) = lu(914) - lu(513) * lu(898)
            lu(916) = lu(916) - lu(514) * lu(898)
            lu(998) = lu(998) - lu(511) * lu(993)
            lu(1018) = lu(1018) - lu(512) * lu(993)
            lu(1024) = lu(1024) - lu(513) * lu(993)
            lu(1028) = lu(1028) - lu(514) * lu(993)
            lu(1093) = lu(1093) - lu(511) * lu(1088)
            lu(1114) = lu(1114) - lu(512) * lu(1088)
            lu(1120) = lu(1120) - lu(513) * lu(1088)
            lu(1124) = lu(1124) - lu(514) * lu(1088)
            lu(1137) = lu(1137) - lu(511) * lu(1135)
            lu(1149) = lu(1149) - lu(512) * lu(1135)
            lu(1155) = lu(1155) - lu(513) * lu(1135)
            lu(1159) = lu(1159) - lu(514) * lu(1135)
            lu(1229) = lu(1229) - lu(511) * lu(1224)
            lu(1248) = lu(1248) - lu(512) * lu(1224)
            lu(1254) = lu(1254) - lu(513) * lu(1224)
            lu(1258) = lu(1258) - lu(514) * lu(1224)
            lu(1361) = lu(1361) - lu(511) * lu(1353)
            lu(1383) = lu(1383) - lu(512) * lu(1353)
            lu(1389) = lu(1389) - lu(513) * lu(1353)
            lu(1393) = lu(1393) - lu(514) * lu(1353)
            lu(1407) = lu(1407) - lu(511) * lu(1401)
            lu(1427) = lu(1427) - lu(512) * lu(1401)
            lu(1433) = lu(1433) - lu(513) * lu(1401)
            lu(1437) = lu(1437) - lu(514) * lu(1401)
            lu(517) = 1._r8 / lu(517)
            lu(518) = lu(518) * lu(517)
            lu(519) = lu(519) * lu(517)
            lu(520) = lu(520) * lu(517)
            lu(521) = lu(521) * lu(517)
            lu(522) = lu(522) * lu(517)
            lu(523) = lu(523) * lu(517)
            lu(524) = lu(524) * lu(517)
            lu(525) = lu(525) * lu(517)
            lu(526) = lu(526) * lu(517)
            lu(527) = lu(527) * lu(517)
            lu(528) = lu(528) * lu(517)
            lu(861) = lu(861) - lu(518) * lu(859)
            lu(863) = lu(863) - lu(519) * lu(859)
            lu(871) = lu(871) - lu(520) * lu(859)
            lu(872) = lu(872) - lu(521) * lu(859)
            lu(873) = lu(873) - lu(522) * lu(859)
            lu(876) = lu(876) - lu(523) * lu(859)
            lu(879) = lu(879) - lu(524) * lu(859)
            lu(880) = lu(880) - lu(525) * lu(859)
            lu(881) = lu(881) - lu(526) * lu(859)
            lu(884) = lu(884) - lu(527) * lu(859)
            lu(885) = lu(885) - lu(528) * lu(859)
            lu(1094) = lu(1094) - lu(518) * lu(1089)
            lu(1096) = lu(1096) - lu(519) * lu(1089)
            lu(1105) = lu(1105) - lu(520) * lu(1089)
            lu(1108) = lu(1108) - lu(521) * lu(1089)
            lu(1109) = lu(1109) - lu(522) * lu(1089)
            lu(1114) = lu(1114) - lu(523) * lu(1089)
            lu(1118) = lu(1118) - lu(524) * lu(1089)
            lu(1119) = lu(1119) - lu(525) * lu(1089)
            lu(1120) = lu(1120) - lu(526) * lu(1089)
            lu(1123) = lu(1123) - lu(527) * lu(1089)
            lu(1124) = lu(1124) - lu(528) * lu(1089)
            lu(1230) = lu(1230) - lu(518) * lu(1225)
            lu(1232) = lu(1232) - lu(519) * lu(1225)
            lu(1240) = lu(1240) - lu(520) * lu(1225)
            lu(1242) = lu(1242) - lu(521) * lu(1225)
            lu(1243) = lu(1243) - lu(522) * lu(1225)
            lu(1248) = lu(1248) - lu(523) * lu(1225)
            lu(1252) = lu(1252) - lu(524) * lu(1225)
            lu(1253) = lu(1253) - lu(525) * lu(1225)
            lu(1254) = lu(1254) - lu(526) * lu(1225)
            lu(1257) = lu(1257) - lu(527) * lu(1225)
            lu(1258) = lu(1258) - lu(528) * lu(1225)
            lu(1362) = lu(1362) - lu(518) * lu(1354)
            lu(1364) = lu(1364) - lu(519) * lu(1354)
            lu(1373) = lu(1373) - lu(520) * lu(1354)
            lu(1377) = lu(1377) - lu(521) * lu(1354)
            lu(1378) = lu(1378) - lu(522) * lu(1354)
            lu(1383) = lu(1383) - lu(523) * lu(1354)
            lu(1387) = lu(1387) - lu(524) * lu(1354)
            lu(1388) = lu(1388) - lu(525) * lu(1354)
            lu(1389) = lu(1389) - lu(526) * lu(1354)
            lu(1392) = lu(1392) - lu(527) * lu(1354)
            lu(1393) = lu(1393) - lu(528) * lu(1354)
            lu(530) = 1._r8 / lu(530)
            lu(531) = lu(531) * lu(530)
            lu(532) = lu(532) * lu(530)
            lu(533) = lu(533) * lu(530)
            lu(534) = lu(534) * lu(530)
            lu(535) = lu(535) * lu(530)
            lu(536) = lu(536) * lu(530)
            lu(537) = lu(537) * lu(530)
            lu(573) = - lu(531) * lu(571)
            lu(575) = lu(575) - lu(532) * lu(571)
            lu(577) = lu(577) - lu(533) * lu(571)
            lu(579) = lu(579) - lu(534) * lu(571)
            lu(580) = lu(580) - lu(535) * lu(571)
            lu(581) = lu(581) - lu(536) * lu(571)
            lu(583) = lu(583) - lu(537) * lu(571)
            lu(693) = - lu(531) * lu(692)
            lu(696) = lu(696) - lu(532) * lu(692)
            lu(704) = lu(704) - lu(533) * lu(692)
            lu(707) = lu(707) - lu(534) * lu(692)
            lu(708) = lu(708) - lu(535) * lu(692)
            lu(709) = lu(709) - lu(536) * lu(692)
            lu(712) = lu(712) - lu(537) * lu(692)
            lu(717) = lu(717) - lu(531) * lu(716)
            lu(720) = - lu(532) * lu(716)
            lu(725) = lu(725) - lu(533) * lu(716)
            lu(728) = lu(728) - lu(534) * lu(716)
            lu(729) = lu(729) - lu(535) * lu(716)
            lu(730) = lu(730) - lu(536) * lu(716)
            lu(733) = lu(733) - lu(537) * lu(716)
            lu(1093) = lu(1093) - lu(531) * lu(1090)
            lu(1100) = lu(1100) - lu(532) * lu(1090)
            lu(1114) = lu(1114) - lu(533) * lu(1090)
            lu(1119) = lu(1119) - lu(534) * lu(1090)
            lu(1120) = lu(1120) - lu(535) * lu(1090)
            lu(1121) = lu(1121) - lu(536) * lu(1090)
            lu(1124) = lu(1124) - lu(537) * lu(1090)
            lu(1229) = lu(1229) - lu(531) * lu(1226)
            lu(1235) = lu(1235) - lu(532) * lu(1226)
            lu(1248) = lu(1248) - lu(533) * lu(1226)
            lu(1253) = lu(1253) - lu(534) * lu(1226)
            lu(1254) = lu(1254) - lu(535) * lu(1226)
            lu(1255) = lu(1255) - lu(536) * lu(1226)
            lu(1258) = lu(1258) - lu(537) * lu(1226)
            lu(1361) = lu(1361) - lu(531) * lu(1355)
            lu(1368) = lu(1368) - lu(532) * lu(1355)
            lu(1383) = lu(1383) - lu(533) * lu(1355)
            lu(1388) = lu(1388) - lu(534) * lu(1355)
            lu(1389) = lu(1389) - lu(535) * lu(1355)
            lu(1390) = lu(1390) - lu(536) * lu(1355)
            lu(1393) = lu(1393) - lu(537) * lu(1355)
            lu(1407) = lu(1407) - lu(531) * lu(1402)
            lu(1413) = lu(1413) - lu(532) * lu(1402)
            lu(1427) = lu(1427) - lu(533) * lu(1402)
            lu(1432) = lu(1432) - lu(534) * lu(1402)
            lu(1433) = lu(1433) - lu(535) * lu(1402)
            lu(1434) = lu(1434) - lu(536) * lu(1402)
            lu(1437) = lu(1437) - lu(537) * lu(1402)
            lu(540) = 1._r8 / lu(540)
            lu(541) = lu(541) * lu(540)
            lu(542) = lu(542) * lu(540)
            lu(543) = lu(543) * lu(540)
            lu(544) = lu(544) * lu(540)
            lu(545) = lu(545) * lu(540)
            lu(546) = lu(546) * lu(540)
            lu(547) = lu(547) * lu(540)
            lu(548) = lu(548) * lu(540)
            lu(549) = lu(549) * lu(540)
            lu(550) = lu(550) * lu(540)
            lu(1001) = - lu(541) * lu(994)
            lu(1002) = lu(1002) - lu(542) * lu(994)
            lu(1007) = lu(1007) - lu(543) * lu(994)
            lu(1009) = - lu(544) * lu(994)
            lu(1012) = lu(1012) - lu(545) * lu(994)
            lu(1018) = lu(1018) - lu(546) * lu(994)
            lu(1022) = lu(1022) - lu(547) * lu(994)
            lu(1023) = lu(1023) - lu(548) * lu(994)
            lu(1024) = lu(1024) - lu(549) * lu(994)
            lu(1027) = lu(1027) - lu(550) * lu(994)
            lu(1096) = lu(1096) - lu(541) * lu(1091)
            lu(1097) = lu(1097) - lu(542) * lu(1091)
            lu(1103) = lu(1103) - lu(543) * lu(1091)
            lu(1105) = lu(1105) - lu(544) * lu(1091)
            lu(1108) = lu(1108) - lu(545) * lu(1091)
            lu(1114) = lu(1114) - lu(546) * lu(1091)
            lu(1118) = lu(1118) - lu(547) * lu(1091)
            lu(1119) = lu(1119) - lu(548) * lu(1091)
            lu(1120) = lu(1120) - lu(549) * lu(1091)
            lu(1123) = lu(1123) - lu(550) * lu(1091)
            lu(1232) = lu(1232) - lu(541) * lu(1227)
            lu(1233) = lu(1233) - lu(542) * lu(1227)
            lu(1238) = lu(1238) - lu(543) * lu(1227)
            lu(1240) = lu(1240) - lu(544) * lu(1227)
            lu(1242) = lu(1242) - lu(545) * lu(1227)
            lu(1248) = lu(1248) - lu(546) * lu(1227)
            lu(1252) = lu(1252) - lu(547) * lu(1227)
            lu(1253) = lu(1253) - lu(548) * lu(1227)
            lu(1254) = lu(1254) - lu(549) * lu(1227)
            lu(1257) = lu(1257) - lu(550) * lu(1227)
            lu(1364) = lu(1364) - lu(541) * lu(1356)
            lu(1365) = lu(1365) - lu(542) * lu(1356)
            lu(1371) = lu(1371) - lu(543) * lu(1356)
            lu(1373) = lu(1373) - lu(544) * lu(1356)
            lu(1377) = lu(1377) - lu(545) * lu(1356)
            lu(1383) = lu(1383) - lu(546) * lu(1356)
            lu(1387) = lu(1387) - lu(547) * lu(1356)
            lu(1388) = lu(1388) - lu(548) * lu(1356)
            lu(1389) = lu(1389) - lu(549) * lu(1356)
            lu(1392) = lu(1392) - lu(550) * lu(1356)
            lu(1410) = - lu(541) * lu(1403)
            lu(1411) = lu(1411) - lu(542) * lu(1403)
            lu(1416) = lu(1416) - lu(543) * lu(1403)
            lu(1418) = lu(1418) - lu(544) * lu(1403)
            lu(1421) = lu(1421) - lu(545) * lu(1403)
            lu(1427) = lu(1427) - lu(546) * lu(1403)
            lu(1431) = lu(1431) - lu(547) * lu(1403)
            lu(1432) = lu(1432) - lu(548) * lu(1403)
            lu(1433) = lu(1433) - lu(549) * lu(1403)
            lu(1436) = lu(1436) - lu(550) * lu(1403)
        END SUBROUTINE lu_fac12

        SUBROUTINE lu_fac13(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(552) = 1._r8 / lu(552)
            lu(553) = lu(553) * lu(552)
            lu(554) = lu(554) * lu(552)
            lu(555) = lu(555) * lu(552)
            lu(556) = lu(556) * lu(552)
            lu(557) = lu(557) * lu(552)
            lu(805) = lu(805) - lu(553) * lu(804)
            lu(808) = lu(808) - lu(554) * lu(804)
            lu(811) = - lu(555) * lu(804)
            lu(817) = lu(817) - lu(556) * lu(804)
            lu(818) = - lu(557) * lu(804)
            lu(901) = lu(901) - lu(553) * lu(899)
            lu(904) = lu(904) - lu(554) * lu(899)
            lu(908) = lu(908) - lu(555) * lu(899)
            lu(914) = lu(914) - lu(556) * lu(899)
            lu(915) = - lu(557) * lu(899)
            lu(938) = lu(938) - lu(553) * lu(934)
            lu(943) = lu(943) - lu(554) * lu(934)
            lu(947) = lu(947) - lu(555) * lu(934)
            lu(953) = lu(953) - lu(556) * lu(934)
            lu(956) = lu(956) - lu(557) * lu(934)
            lu(1010) = lu(1010) - lu(553) * lu(995)
            lu(1014) = lu(1014) - lu(554) * lu(995)
            lu(1018) = lu(1018) - lu(555) * lu(995)
            lu(1024) = lu(1024) - lu(556) * lu(995)
            lu(1027) = lu(1027) - lu(557) * lu(995)
            lu(1036) = lu(1036) - lu(553) * lu(1034)
            lu(1041) = lu(1041) - lu(554) * lu(1034)
            lu(1045) = lu(1045) - lu(555) * lu(1034)
            lu(1051) = lu(1051) - lu(556) * lu(1034)
            lu(1054) = lu(1054) - lu(557) * lu(1034)
            lu(1185) = lu(1185) - lu(553) * lu(1184)
            lu(1189) = lu(1189) - lu(554) * lu(1184)
            lu(1193) = lu(1193) - lu(555) * lu(1184)
            lu(1199) = lu(1199) - lu(556) * lu(1184)
            lu(1202) = lu(1202) - lu(557) * lu(1184)
            lu(1276) = lu(1276) - lu(553) * lu(1269)
            lu(1281) = lu(1281) - lu(554) * lu(1269)
            lu(1285) = lu(1285) - lu(555) * lu(1269)
            lu(1291) = lu(1291) - lu(556) * lu(1269)
            lu(1294) = lu(1294) - lu(557) * lu(1269)
            lu(1374) = lu(1374) - lu(553) * lu(1357)
            lu(1379) = lu(1379) - lu(554) * lu(1357)
            lu(1383) = lu(1383) - lu(555) * lu(1357)
            lu(1389) = lu(1389) - lu(556) * lu(1357)
            lu(1392) = lu(1392) - lu(557) * lu(1357)
            lu(1419) = - lu(553) * lu(1404)
            lu(1423) = lu(1423) - lu(554) * lu(1404)
            lu(1427) = lu(1427) - lu(555) * lu(1404)
            lu(1433) = lu(1433) - lu(556) * lu(1404)
            lu(1436) = lu(1436) - lu(557) * lu(1404)
            lu(1466) = - lu(553) * lu(1464)
            lu(1471) = lu(1471) - lu(554) * lu(1464)
            lu(1475) = - lu(555) * lu(1464)
            lu(1481) = lu(1481) - lu(556) * lu(1464)
            lu(1484) = lu(1484) - lu(557) * lu(1464)
            lu(560) = 1._r8 / lu(560)
            lu(561) = lu(561) * lu(560)
            lu(562) = lu(562) * lu(560)
            lu(563) = lu(563) * lu(560)
            lu(564) = lu(564) * lu(560)
            lu(565) = lu(565) * lu(560)
            lu(566) = lu(566) * lu(560)
            lu(567) = lu(567) * lu(560)
            lu(568) = lu(568) * lu(560)
            lu(569) = lu(569) * lu(560)
            lu(824) = lu(824) - lu(561) * lu(823)
            lu(826) = lu(826) - lu(562) * lu(823)
            lu(828) = lu(828) - lu(563) * lu(823)
            lu(829) = lu(829) - lu(564) * lu(823)
            lu(832) = - lu(565) * lu(823)
            lu(833) = lu(833) - lu(566) * lu(823)
            lu(834) = - lu(567) * lu(823)
            lu(835) = lu(835) - lu(568) * lu(823)
            lu(836) = lu(836) - lu(569) * lu(823)
            lu(939) = lu(939) - lu(561) * lu(935)
            lu(943) = lu(943) - lu(562) * lu(935)
            lu(946) = lu(946) - lu(563) * lu(935)
            lu(948) = lu(948) - lu(564) * lu(935)
            lu(952) = lu(952) - lu(565) * lu(935)
            lu(953) = lu(953) - lu(566) * lu(935)
            lu(954) = lu(954) - lu(567) * lu(935)
            lu(955) = lu(955) - lu(568) * lu(935)
            lu(956) = lu(956) - lu(569) * lu(935)
            lu(1037) = lu(1037) - lu(561) * lu(1035)
            lu(1041) = lu(1041) - lu(562) * lu(1035)
            lu(1044) = lu(1044) - lu(563) * lu(1035)
            lu(1046) = lu(1046) - lu(564) * lu(1035)
            lu(1050) = lu(1050) - lu(565) * lu(1035)
            lu(1051) = lu(1051) - lu(566) * lu(1035)
            lu(1052) = - lu(567) * lu(1035)
            lu(1053) = - lu(568) * lu(1035)
            lu(1054) = lu(1054) - lu(569) * lu(1035)
            lu(1141) = lu(1141) - lu(561) * lu(1136)
            lu(1145) = lu(1145) - lu(562) * lu(1136)
            lu(1148) = lu(1148) - lu(563) * lu(1136)
            lu(1150) = lu(1150) - lu(564) * lu(1136)
            lu(1154) = lu(1154) - lu(565) * lu(1136)
            lu(1155) = lu(1155) - lu(566) * lu(1136)
            lu(1156) = lu(1156) - lu(567) * lu(1136)
            lu(1157) = - lu(568) * lu(1136)
            lu(1158) = lu(1158) - lu(569) * lu(1136)
            lu(1277) = lu(1277) - lu(561) * lu(1270)
            lu(1281) = lu(1281) - lu(562) * lu(1270)
            lu(1284) = lu(1284) - lu(563) * lu(1270)
            lu(1286) = lu(1286) - lu(564) * lu(1270)
            lu(1290) = lu(1290) - lu(565) * lu(1270)
            lu(1291) = lu(1291) - lu(566) * lu(1270)
            lu(1292) = lu(1292) - lu(567) * lu(1270)
            lu(1293) = lu(1293) - lu(568) * lu(1270)
            lu(1294) = lu(1294) - lu(569) * lu(1270)
            lu(1375) = lu(1375) - lu(561) * lu(1358)
            lu(1379) = lu(1379) - lu(562) * lu(1358)
            lu(1382) = lu(1382) - lu(563) * lu(1358)
            lu(1384) = lu(1384) - lu(564) * lu(1358)
            lu(1388) = lu(1388) - lu(565) * lu(1358)
            lu(1389) = lu(1389) - lu(566) * lu(1358)
            lu(1390) = lu(1390) - lu(567) * lu(1358)
            lu(1391) = lu(1391) - lu(568) * lu(1358)
            lu(1392) = lu(1392) - lu(569) * lu(1358)
            lu(572) = 1._r8 / lu(572)
            lu(573) = lu(573) * lu(572)
            lu(574) = lu(574) * lu(572)
            lu(575) = lu(575) * lu(572)
            lu(576) = lu(576) * lu(572)
            lu(577) = lu(577) * lu(572)
            lu(578) = lu(578) * lu(572)
            lu(579) = lu(579) * lu(572)
            lu(580) = lu(580) * lu(572)
            lu(581) = lu(581) * lu(572)
            lu(582) = lu(582) * lu(572)
            lu(583) = lu(583) * lu(572)
            lu(998) = lu(998) - lu(573) * lu(996)
            lu(1002) = lu(1002) - lu(574) * lu(996)
            lu(1004) = - lu(575) * lu(996)
            lu(1007) = lu(1007) - lu(576) * lu(996)
            lu(1018) = lu(1018) - lu(577) * lu(996)
            lu(1022) = lu(1022) - lu(578) * lu(996)
            lu(1023) = lu(1023) - lu(579) * lu(996)
            lu(1024) = lu(1024) - lu(580) * lu(996)
            lu(1025) = lu(1025) - lu(581) * lu(996)
            lu(1027) = lu(1027) - lu(582) * lu(996)
            lu(1028) = lu(1028) - lu(583) * lu(996)
            lu(1093) = lu(1093) - lu(573) * lu(1092)
            lu(1097) = lu(1097) - lu(574) * lu(1092)
            lu(1100) = lu(1100) - lu(575) * lu(1092)
            lu(1103) = lu(1103) - lu(576) * lu(1092)
            lu(1114) = lu(1114) - lu(577) * lu(1092)
            lu(1118) = lu(1118) - lu(578) * lu(1092)
            lu(1119) = lu(1119) - lu(579) * lu(1092)
            lu(1120) = lu(1120) - lu(580) * lu(1092)
            lu(1121) = lu(1121) - lu(581) * lu(1092)
            lu(1123) = lu(1123) - lu(582) * lu(1092)
            lu(1124) = lu(1124) - lu(583) * lu(1092)
            lu(1229) = lu(1229) - lu(573) * lu(1228)
            lu(1233) = lu(1233) - lu(574) * lu(1228)
            lu(1235) = lu(1235) - lu(575) * lu(1228)
            lu(1238) = lu(1238) - lu(576) * lu(1228)
            lu(1248) = lu(1248) - lu(577) * lu(1228)
            lu(1252) = lu(1252) - lu(578) * lu(1228)
            lu(1253) = lu(1253) - lu(579) * lu(1228)
            lu(1254) = lu(1254) - lu(580) * lu(1228)
            lu(1255) = lu(1255) - lu(581) * lu(1228)
            lu(1257) = lu(1257) - lu(582) * lu(1228)
            lu(1258) = lu(1258) - lu(583) * lu(1228)
            lu(1361) = lu(1361) - lu(573) * lu(1359)
            lu(1365) = lu(1365) - lu(574) * lu(1359)
            lu(1368) = lu(1368) - lu(575) * lu(1359)
            lu(1371) = lu(1371) - lu(576) * lu(1359)
            lu(1383) = lu(1383) - lu(577) * lu(1359)
            lu(1387) = lu(1387) - lu(578) * lu(1359)
            lu(1388) = lu(1388) - lu(579) * lu(1359)
            lu(1389) = lu(1389) - lu(580) * lu(1359)
            lu(1390) = lu(1390) - lu(581) * lu(1359)
            lu(1392) = lu(1392) - lu(582) * lu(1359)
            lu(1393) = lu(1393) - lu(583) * lu(1359)
            lu(1407) = lu(1407) - lu(573) * lu(1405)
            lu(1411) = lu(1411) - lu(574) * lu(1405)
            lu(1413) = lu(1413) - lu(575) * lu(1405)
            lu(1416) = lu(1416) - lu(576) * lu(1405)
            lu(1427) = lu(1427) - lu(577) * lu(1405)
            lu(1431) = lu(1431) - lu(578) * lu(1405)
            lu(1432) = lu(1432) - lu(579) * lu(1405)
            lu(1433) = lu(1433) - lu(580) * lu(1405)
            lu(1434) = lu(1434) - lu(581) * lu(1405)
            lu(1436) = lu(1436) - lu(582) * lu(1405)
            lu(1437) = lu(1437) - lu(583) * lu(1405)
            lu(587) = 1._r8 / lu(587)
            lu(588) = lu(588) * lu(587)
            lu(589) = lu(589) * lu(587)
            lu(590) = lu(590) * lu(587)
            lu(591) = lu(591) * lu(587)
            lu(592) = lu(592) * lu(587)
            lu(593) = lu(593) * lu(587)
            lu(594) = lu(594) * lu(587)
            lu(595) = lu(595) * lu(587)
            lu(596) = lu(596) * lu(587)
            lu(597) = lu(597) * lu(587)
            lu(598) = lu(598) * lu(587)
            lu(599) = lu(599) * lu(587)
            lu(600) = lu(600) * lu(587)
            lu(601) = lu(601) * lu(587)
            lu(735) = lu(735) - lu(588) * lu(734)
            lu(736) = lu(736) - lu(589) * lu(734)
            lu(737) = - lu(590) * lu(734)
            lu(738) = lu(738) - lu(591) * lu(734)
            lu(743) = lu(743) - lu(592) * lu(734)
            lu(744) = - lu(593) * lu(734)
            lu(745) = lu(745) - lu(594) * lu(734)
            lu(746) = lu(746) - lu(595) * lu(734)
            lu(748) = - lu(596) * lu(734)
            lu(749) = - lu(597) * lu(734)
            lu(750) = lu(750) - lu(598) * lu(734)
            lu(751) = - lu(599) * lu(734)
            lu(753) = - lu(600) * lu(734)
            lu(754) = lu(754) - lu(601) * lu(734)
            lu(998) = lu(998) - lu(588) * lu(997)
            lu(999) = lu(999) - lu(589) * lu(997)
            lu(1000) = - lu(590) * lu(997)
            lu(1003) = lu(1003) - lu(591) * lu(997)
            lu(1012) = lu(1012) - lu(592) * lu(997)
            lu(1013) = lu(1013) - lu(593) * lu(997)
            lu(1016) = lu(1016) - lu(594) * lu(997)
            lu(1018) = lu(1018) - lu(595) * lu(997)
            lu(1022) = lu(1022) - lu(596) * lu(997)
            lu(1023) = lu(1023) - lu(597) * lu(997)
            lu(1024) = lu(1024) - lu(598) * lu(997)
            lu(1025) = lu(1025) - lu(599) * lu(997)
            lu(1027) = lu(1027) - lu(600) * lu(997)
            lu(1028) = lu(1028) - lu(601) * lu(997)
            lu(1361) = lu(1361) - lu(588) * lu(1360)
            lu(1362) = lu(1362) - lu(589) * lu(1360)
            lu(1363) = lu(1363) - lu(590) * lu(1360)
            lu(1367) = lu(1367) - lu(591) * lu(1360)
            lu(1377) = lu(1377) - lu(592) * lu(1360)
            lu(1378) = lu(1378) - lu(593) * lu(1360)
            lu(1381) = lu(1381) - lu(594) * lu(1360)
            lu(1383) = lu(1383) - lu(595) * lu(1360)
            lu(1387) = lu(1387) - lu(596) * lu(1360)
            lu(1388) = lu(1388) - lu(597) * lu(1360)
            lu(1389) = lu(1389) - lu(598) * lu(1360)
            lu(1390) = lu(1390) - lu(599) * lu(1360)
            lu(1392) = lu(1392) - lu(600) * lu(1360)
            lu(1393) = lu(1393) - lu(601) * lu(1360)
            lu(1407) = lu(1407) - lu(588) * lu(1406)
            lu(1408) = lu(1408) - lu(589) * lu(1406)
            lu(1409) = lu(1409) - lu(590) * lu(1406)
            lu(1412) = lu(1412) - lu(591) * lu(1406)
            lu(1421) = lu(1421) - lu(592) * lu(1406)
            lu(1422) = lu(1422) - lu(593) * lu(1406)
            lu(1425) = lu(1425) - lu(594) * lu(1406)
            lu(1427) = lu(1427) - lu(595) * lu(1406)
            lu(1431) = lu(1431) - lu(596) * lu(1406)
            lu(1432) = lu(1432) - lu(597) * lu(1406)
            lu(1433) = lu(1433) - lu(598) * lu(1406)
            lu(1434) = lu(1434) - lu(599) * lu(1406)
            lu(1436) = lu(1436) - lu(600) * lu(1406)
            lu(1437) = lu(1437) - lu(601) * lu(1406)
        END SUBROUTINE lu_fac13

        SUBROUTINE lu_fac14(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(602) = 1._r8 / lu(602)
            lu(603) = lu(603) * lu(602)
            lu(604) = lu(604) * lu(602)
            lu(605) = lu(605) * lu(602)
            lu(610) = lu(610) - lu(603) * lu(606)
            lu(611) = - lu(604) * lu(606)
            lu(612) = lu(612) - lu(605) * lu(606)
            lu(643) = lu(643) - lu(603) * lu(636)
            lu(644) = - lu(604) * lu(636)
            lu(645) = lu(645) - lu(605) * lu(636)
            lu(664) = lu(664) - lu(603) * lu(661)
            lu(665) = - lu(604) * lu(661)
            lu(666) = lu(666) - lu(605) * lu(661)
            lu(680) = lu(680) - lu(603) * lu(674)
            lu(681) = - lu(604) * lu(674)
            lu(684) = lu(684) - lu(605) * lu(674)
            lu(704) = lu(704) - lu(603) * lu(693)
            lu(705) = - lu(604) * lu(693)
            lu(708) = lu(708) - lu(605) * lu(693)
            lu(725) = lu(725) - lu(603) * lu(717)
            lu(726) = - lu(604) * lu(717)
            lu(729) = lu(729) - lu(605) * lu(717)
            lu(746) = lu(746) - lu(603) * lu(735)
            lu(747) = - lu(604) * lu(735)
            lu(750) = lu(750) - lu(605) * lu(735)
            lu(793) = lu(793) - lu(603) * lu(780)
            lu(794) = - lu(604) * lu(780)
            lu(797) = lu(797) - lu(605) * lu(780)
            lu(844) = lu(844) - lu(603) * lu(838)
            lu(845) = lu(845) - lu(604) * lu(838)
            lu(847) = lu(847) - lu(605) * lu(838)
            lu(876) = lu(876) - lu(603) * lu(860)
            lu(878) = lu(878) - lu(604) * lu(860)
            lu(881) = lu(881) - lu(605) * lu(860)
            lu(908) = lu(908) - lu(603) * lu(900)
            lu(910) = lu(910) - lu(604) * lu(900)
            lu(914) = lu(914) - lu(605) * lu(900)
            lu(947) = lu(947) - lu(603) * lu(936)
            lu(949) = lu(949) - lu(604) * lu(936)
            lu(953) = lu(953) - lu(605) * lu(936)
            lu(1018) = lu(1018) - lu(603) * lu(998)
            lu(1020) = lu(1020) - lu(604) * lu(998)
            lu(1024) = lu(1024) - lu(605) * lu(998)
            lu(1114) = lu(1114) - lu(603) * lu(1093)
            lu(1116) = lu(1116) - lu(604) * lu(1093)
            lu(1120) = lu(1120) - lu(605) * lu(1093)
            lu(1149) = lu(1149) - lu(603) * lu(1137)
            lu(1151) = lu(1151) - lu(604) * lu(1137)
            lu(1155) = lu(1155) - lu(605) * lu(1137)
            lu(1248) = lu(1248) - lu(603) * lu(1229)
            lu(1250) = lu(1250) - lu(604) * lu(1229)
            lu(1254) = lu(1254) - lu(605) * lu(1229)
            lu(1285) = lu(1285) - lu(603) * lu(1271)
            lu(1287) = lu(1287) - lu(604) * lu(1271)
            lu(1291) = lu(1291) - lu(605) * lu(1271)
            lu(1383) = lu(1383) - lu(603) * lu(1361)
            lu(1385) = lu(1385) - lu(604) * lu(1361)
            lu(1389) = lu(1389) - lu(605) * lu(1361)
            lu(1427) = lu(1427) - lu(603) * lu(1407)
            lu(1429) = - lu(604) * lu(1407)
            lu(1433) = lu(1433) - lu(605) * lu(1407)
            lu(1499) = lu(1499) - lu(603) * lu(1489)
            lu(1501) = lu(1501) - lu(604) * lu(1489)
            lu(1505) = lu(1505) - lu(605) * lu(1489)
            lu(607) = 1._r8 / lu(607)
            lu(608) = lu(608) * lu(607)
            lu(609) = lu(609) * lu(607)
            lu(610) = lu(610) * lu(607)
            lu(611) = lu(611) * lu(607)
            lu(612) = lu(612) * lu(607)
            lu(613) = lu(613) * lu(607)
            lu(614) = lu(614) * lu(607)
            lu(615) = lu(615) * lu(607)
            lu(742) = lu(742) - lu(608) * lu(736)
            lu(743) = lu(743) - lu(609) * lu(736)
            lu(746) = lu(746) - lu(610) * lu(736)
            lu(747) = lu(747) - lu(611) * lu(736)
            lu(750) = lu(750) - lu(612) * lu(736)
            lu(751) = lu(751) - lu(613) * lu(736)
            lu(752) = - lu(614) * lu(736)
            lu(753) = lu(753) - lu(615) * lu(736)
            lu(871) = lu(871) - lu(608) * lu(861)
            lu(872) = lu(872) - lu(609) * lu(861)
            lu(876) = lu(876) - lu(610) * lu(861)
            lu(878) = lu(878) - lu(611) * lu(861)
            lu(881) = lu(881) - lu(612) * lu(861)
            lu(882) = - lu(613) * lu(861)
            lu(883) = - lu(614) * lu(861)
            lu(884) = lu(884) - lu(615) * lu(861)
            lu(1009) = lu(1009) - lu(608) * lu(999)
            lu(1012) = lu(1012) - lu(609) * lu(999)
            lu(1018) = lu(1018) - lu(610) * lu(999)
            lu(1020) = lu(1020) - lu(611) * lu(999)
            lu(1024) = lu(1024) - lu(612) * lu(999)
            lu(1025) = lu(1025) - lu(613) * lu(999)
            lu(1026) = - lu(614) * lu(999)
            lu(1027) = lu(1027) - lu(615) * lu(999)
            lu(1105) = lu(1105) - lu(608) * lu(1094)
            lu(1108) = lu(1108) - lu(609) * lu(1094)
            lu(1114) = lu(1114) - lu(610) * lu(1094)
            lu(1116) = lu(1116) - lu(611) * lu(1094)
            lu(1120) = lu(1120) - lu(612) * lu(1094)
            lu(1121) = lu(1121) - lu(613) * lu(1094)
            lu(1122) = - lu(614) * lu(1094)
            lu(1123) = lu(1123) - lu(615) * lu(1094)
            lu(1140) = - lu(608) * lu(1138)
            lu(1143) = lu(1143) - lu(609) * lu(1138)
            lu(1149) = lu(1149) - lu(610) * lu(1138)
            lu(1151) = lu(1151) - lu(611) * lu(1138)
            lu(1155) = lu(1155) - lu(612) * lu(1138)
            lu(1156) = lu(1156) - lu(613) * lu(1138)
            lu(1157) = lu(1157) - lu(614) * lu(1138)
            lu(1158) = lu(1158) - lu(615) * lu(1138)
            lu(1240) = lu(1240) - lu(608) * lu(1230)
            lu(1242) = lu(1242) - lu(609) * lu(1230)
            lu(1248) = lu(1248) - lu(610) * lu(1230)
            lu(1250) = lu(1250) - lu(611) * lu(1230)
            lu(1254) = lu(1254) - lu(612) * lu(1230)
            lu(1255) = lu(1255) - lu(613) * lu(1230)
            lu(1256) = - lu(614) * lu(1230)
            lu(1257) = lu(1257) - lu(615) * lu(1230)
            lu(1373) = lu(1373) - lu(608) * lu(1362)
            lu(1377) = lu(1377) - lu(609) * lu(1362)
            lu(1383) = lu(1383) - lu(610) * lu(1362)
            lu(1385) = lu(1385) - lu(611) * lu(1362)
            lu(1389) = lu(1389) - lu(612) * lu(1362)
            lu(1390) = lu(1390) - lu(613) * lu(1362)
            lu(1391) = lu(1391) - lu(614) * lu(1362)
            lu(1392) = lu(1392) - lu(615) * lu(1362)
            lu(1418) = lu(1418) - lu(608) * lu(1408)
            lu(1421) = lu(1421) - lu(609) * lu(1408)
            lu(1427) = lu(1427) - lu(610) * lu(1408)
            lu(1429) = lu(1429) - lu(611) * lu(1408)
            lu(1433) = lu(1433) - lu(612) * lu(1408)
            lu(1434) = lu(1434) - lu(613) * lu(1408)
            lu(1435) = lu(1435) - lu(614) * lu(1408)
            lu(1436) = lu(1436) - lu(615) * lu(1408)
            lu(616) = 1._r8 / lu(616)
            lu(617) = lu(617) * lu(616)
            lu(618) = lu(618) * lu(616)
            lu(619) = lu(619) * lu(616)
            lu(620) = lu(620) * lu(616)
            lu(621) = lu(621) * lu(616)
            lu(626) = lu(626) - lu(617) * lu(624)
            lu(627) = lu(627) - lu(618) * lu(624)
            lu(630) = lu(630) - lu(619) * lu(624)
            lu(633) = lu(633) - lu(620) * lu(624)
            lu(635) = lu(635) - lu(621) * lu(624)
            lu(676) = lu(676) - lu(617) * lu(675)
            lu(678) = lu(678) - lu(618) * lu(675)
            lu(680) = lu(680) - lu(619) * lu(675)
            lu(684) = lu(684) - lu(620) * lu(675)
            lu(688) = lu(688) - lu(621) * lu(675)
            lu(719) = lu(719) - lu(617) * lu(718)
            lu(723) = lu(723) - lu(618) * lu(718)
            lu(725) = lu(725) - lu(619) * lu(718)
            lu(729) = lu(729) - lu(620) * lu(718)
            lu(733) = lu(733) - lu(621) * lu(718)
            lu(738) = lu(738) - lu(617) * lu(737)
            lu(742) = lu(742) - lu(618) * lu(737)
            lu(746) = lu(746) - lu(619) * lu(737)
            lu(750) = lu(750) - lu(620) * lu(737)
            lu(754) = lu(754) - lu(621) * lu(737)
            lu(759) = - lu(617) * lu(758)
            lu(761) = lu(761) - lu(618) * lu(758)
            lu(765) = lu(765) - lu(619) * lu(758)
            lu(769) = lu(769) - lu(620) * lu(758)
            lu(773) = lu(773) - lu(621) * lu(758)
            lu(783) = lu(783) - lu(617) * lu(781)
            lu(789) = lu(789) - lu(618) * lu(781)
            lu(793) = lu(793) - lu(619) * lu(781)
            lu(797) = lu(797) - lu(620) * lu(781)
            lu(801) = lu(801) - lu(621) * lu(781)
            lu(865) = lu(865) - lu(617) * lu(862)
            lu(871) = lu(871) - lu(618) * lu(862)
            lu(876) = lu(876) - lu(619) * lu(862)
            lu(881) = lu(881) - lu(620) * lu(862)
            lu(885) = lu(885) - lu(621) * lu(862)
            lu(1003) = lu(1003) - lu(617) * lu(1000)
            lu(1009) = lu(1009) - lu(618) * lu(1000)
            lu(1018) = lu(1018) - lu(619) * lu(1000)
            lu(1024) = lu(1024) - lu(620) * lu(1000)
            lu(1028) = lu(1028) - lu(621) * lu(1000)
            lu(1099) = lu(1099) - lu(617) * lu(1095)
            lu(1105) = lu(1105) - lu(618) * lu(1095)
            lu(1114) = lu(1114) - lu(619) * lu(1095)
            lu(1120) = lu(1120) - lu(620) * lu(1095)
            lu(1124) = lu(1124) - lu(621) * lu(1095)
            lu(1234) = lu(1234) - lu(617) * lu(1231)
            lu(1240) = lu(1240) - lu(618) * lu(1231)
            lu(1248) = lu(1248) - lu(619) * lu(1231)
            lu(1254) = lu(1254) - lu(620) * lu(1231)
            lu(1258) = lu(1258) - lu(621) * lu(1231)
            lu(1273) = lu(1273) - lu(617) * lu(1272)
            lu(1275) = lu(1275) - lu(618) * lu(1272)
            lu(1285) = lu(1285) - lu(619) * lu(1272)
            lu(1291) = lu(1291) - lu(620) * lu(1272)
            lu(1295) = lu(1295) - lu(621) * lu(1272)
            lu(1367) = lu(1367) - lu(617) * lu(1363)
            lu(1373) = lu(1373) - lu(618) * lu(1363)
            lu(1383) = lu(1383) - lu(619) * lu(1363)
            lu(1389) = lu(1389) - lu(620) * lu(1363)
            lu(1393) = lu(1393) - lu(621) * lu(1363)
            lu(1412) = lu(1412) - lu(617) * lu(1409)
            lu(1418) = lu(1418) - lu(618) * lu(1409)
            lu(1427) = lu(1427) - lu(619) * lu(1409)
            lu(1433) = lu(1433) - lu(620) * lu(1409)
            lu(1437) = lu(1437) - lu(621) * lu(1409)
            lu(625) = 1._r8 / lu(625)
            lu(626) = lu(626) * lu(625)
            lu(627) = lu(627) * lu(625)
            lu(628) = lu(628) * lu(625)
            lu(629) = lu(629) * lu(625)
            lu(630) = lu(630) * lu(625)
            lu(631) = lu(631) * lu(625)
            lu(632) = lu(632) * lu(625)
            lu(633) = lu(633) * lu(625)
            lu(634) = lu(634) * lu(625)
            lu(635) = lu(635) * lu(625)
            lu(865) = lu(865) - lu(626) * lu(863)
            lu(871) = lu(871) - lu(627) * lu(863)
            lu(872) = lu(872) - lu(628) * lu(863)
            lu(873) = lu(873) - lu(629) * lu(863)
            lu(876) = lu(876) - lu(630) * lu(863)
            lu(879) = lu(879) - lu(631) * lu(863)
            lu(880) = lu(880) - lu(632) * lu(863)
            lu(881) = lu(881) - lu(633) * lu(863)
            lu(884) = lu(884) - lu(634) * lu(863)
            lu(885) = lu(885) - lu(635) * lu(863)
            lu(1003) = lu(1003) - lu(626) * lu(1001)
            lu(1009) = lu(1009) - lu(627) * lu(1001)
            lu(1012) = lu(1012) - lu(628) * lu(1001)
            lu(1013) = lu(1013) - lu(629) * lu(1001)
            lu(1018) = lu(1018) - lu(630) * lu(1001)
            lu(1022) = lu(1022) - lu(631) * lu(1001)
            lu(1023) = lu(1023) - lu(632) * lu(1001)
            lu(1024) = lu(1024) - lu(633) * lu(1001)
            lu(1027) = lu(1027) - lu(634) * lu(1001)
            lu(1028) = lu(1028) - lu(635) * lu(1001)
            lu(1099) = lu(1099) - lu(626) * lu(1096)
            lu(1105) = lu(1105) - lu(627) * lu(1096)
            lu(1108) = lu(1108) - lu(628) * lu(1096)
            lu(1109) = lu(1109) - lu(629) * lu(1096)
            lu(1114) = lu(1114) - lu(630) * lu(1096)
            lu(1118) = lu(1118) - lu(631) * lu(1096)
            lu(1119) = lu(1119) - lu(632) * lu(1096)
            lu(1120) = lu(1120) - lu(633) * lu(1096)
            lu(1123) = lu(1123) - lu(634) * lu(1096)
            lu(1124) = lu(1124) - lu(635) * lu(1096)
            lu(1234) = lu(1234) - lu(626) * lu(1232)
            lu(1240) = lu(1240) - lu(627) * lu(1232)
            lu(1242) = lu(1242) - lu(628) * lu(1232)
            lu(1243) = lu(1243) - lu(629) * lu(1232)
            lu(1248) = lu(1248) - lu(630) * lu(1232)
            lu(1252) = lu(1252) - lu(631) * lu(1232)
            lu(1253) = lu(1253) - lu(632) * lu(1232)
            lu(1254) = lu(1254) - lu(633) * lu(1232)
            lu(1257) = lu(1257) - lu(634) * lu(1232)
            lu(1258) = lu(1258) - lu(635) * lu(1232)
            lu(1367) = lu(1367) - lu(626) * lu(1364)
            lu(1373) = lu(1373) - lu(627) * lu(1364)
            lu(1377) = lu(1377) - lu(628) * lu(1364)
            lu(1378) = lu(1378) - lu(629) * lu(1364)
            lu(1383) = lu(1383) - lu(630) * lu(1364)
            lu(1387) = lu(1387) - lu(631) * lu(1364)
            lu(1388) = lu(1388) - lu(632) * lu(1364)
            lu(1389) = lu(1389) - lu(633) * lu(1364)
            lu(1392) = lu(1392) - lu(634) * lu(1364)
            lu(1393) = lu(1393) - lu(635) * lu(1364)
            lu(1412) = lu(1412) - lu(626) * lu(1410)
            lu(1418) = lu(1418) - lu(627) * lu(1410)
            lu(1421) = lu(1421) - lu(628) * lu(1410)
            lu(1422) = lu(1422) - lu(629) * lu(1410)
            lu(1427) = lu(1427) - lu(630) * lu(1410)
            lu(1431) = lu(1431) - lu(631) * lu(1410)
            lu(1432) = lu(1432) - lu(632) * lu(1410)
            lu(1433) = lu(1433) - lu(633) * lu(1410)
            lu(1436) = lu(1436) - lu(634) * lu(1410)
            lu(1437) = lu(1437) - lu(635) * lu(1410)
            lu(637) = 1._r8 / lu(637)
            lu(638) = lu(638) * lu(637)
            lu(639) = lu(639) * lu(637)
            lu(640) = lu(640) * lu(637)
            lu(641) = lu(641) * lu(637)
            lu(642) = lu(642) * lu(637)
            lu(643) = lu(643) * lu(637)
            lu(644) = lu(644) * lu(637)
            lu(645) = lu(645) * lu(637)
            lu(646) = lu(646) * lu(637)
            lu(647) = lu(647) * lu(637)
            lu(695) = - lu(638) * lu(694)
            lu(698) = - lu(639) * lu(694)
            lu(700) = - lu(640) * lu(694)
            lu(701) = lu(701) - lu(641) * lu(694)
            lu(703) = - lu(642) * lu(694)
            lu(704) = lu(704) - lu(643) * lu(694)
            lu(705) = lu(705) - lu(644) * lu(694)
            lu(708) = lu(708) - lu(645) * lu(694)
            lu(711) = - lu(646) * lu(694)
            lu(712) = lu(712) - lu(647) * lu(694)
            lu(783) = lu(783) - lu(638) * lu(782)
            lu(786) = lu(786) - lu(639) * lu(782)
            lu(788) = lu(788) - lu(640) * lu(782)
            lu(789) = lu(789) - lu(641) * lu(782)
            lu(792) = lu(792) - lu(642) * lu(782)
            lu(793) = lu(793) - lu(643) * lu(782)
            lu(794) = lu(794) - lu(644) * lu(782)
            lu(797) = lu(797) - lu(645) * lu(782)
            lu(800) = lu(800) - lu(646) * lu(782)
            lu(801) = lu(801) - lu(647) * lu(782)
            lu(865) = lu(865) - lu(638) * lu(864)
            lu(868) = lu(868) - lu(639) * lu(864)
            lu(870) = lu(870) - lu(640) * lu(864)
            lu(871) = lu(871) - lu(641) * lu(864)
            lu(874) = - lu(642) * lu(864)
            lu(876) = lu(876) - lu(643) * lu(864)
            lu(878) = lu(878) - lu(644) * lu(864)
            lu(881) = lu(881) - lu(645) * lu(864)
            lu(884) = lu(884) - lu(646) * lu(864)
            lu(885) = lu(885) - lu(647) * lu(864)
            lu(1003) = lu(1003) - lu(638) * lu(1002)
            lu(1006) = - lu(639) * lu(1002)
            lu(1008) = lu(1008) - lu(640) * lu(1002)
            lu(1009) = lu(1009) - lu(641) * lu(1002)
            lu(1016) = lu(1016) - lu(642) * lu(1002)
            lu(1018) = lu(1018) - lu(643) * lu(1002)
            lu(1020) = lu(1020) - lu(644) * lu(1002)
            lu(1024) = lu(1024) - lu(645) * lu(1002)
            lu(1027) = lu(1027) - lu(646) * lu(1002)
            lu(1028) = lu(1028) - lu(647) * lu(1002)
            lu(1099) = lu(1099) - lu(638) * lu(1097)
            lu(1102) = lu(1102) - lu(639) * lu(1097)
            lu(1104) = lu(1104) - lu(640) * lu(1097)
            lu(1105) = lu(1105) - lu(641) * lu(1097)
            lu(1112) = lu(1112) - lu(642) * lu(1097)
            lu(1114) = lu(1114) - lu(643) * lu(1097)
            lu(1116) = lu(1116) - lu(644) * lu(1097)
            lu(1120) = lu(1120) - lu(645) * lu(1097)
            lu(1123) = lu(1123) - lu(646) * lu(1097)
            lu(1124) = lu(1124) - lu(647) * lu(1097)
            lu(1234) = lu(1234) - lu(638) * lu(1233)
            lu(1237) = lu(1237) - lu(639) * lu(1233)
            lu(1239) = lu(1239) - lu(640) * lu(1233)
            lu(1240) = lu(1240) - lu(641) * lu(1233)
            lu(1246) = lu(1246) - lu(642) * lu(1233)
            lu(1248) = lu(1248) - lu(643) * lu(1233)
            lu(1250) = lu(1250) - lu(644) * lu(1233)
            lu(1254) = lu(1254) - lu(645) * lu(1233)
            lu(1257) = lu(1257) - lu(646) * lu(1233)
            lu(1258) = lu(1258) - lu(647) * lu(1233)
            lu(1367) = lu(1367) - lu(638) * lu(1365)
            lu(1370) = lu(1370) - lu(639) * lu(1365)
            lu(1372) = lu(1372) - lu(640) * lu(1365)
            lu(1373) = lu(1373) - lu(641) * lu(1365)
            lu(1381) = lu(1381) - lu(642) * lu(1365)
            lu(1383) = lu(1383) - lu(643) * lu(1365)
            lu(1385) = lu(1385) - lu(644) * lu(1365)
            lu(1389) = lu(1389) - lu(645) * lu(1365)
            lu(1392) = lu(1392) - lu(646) * lu(1365)
            lu(1393) = lu(1393) - lu(647) * lu(1365)
            lu(1412) = lu(1412) - lu(638) * lu(1411)
            lu(1415) = lu(1415) - lu(639) * lu(1411)
            lu(1417) = lu(1417) - lu(640) * lu(1411)
            lu(1418) = lu(1418) - lu(641) * lu(1411)
            lu(1425) = lu(1425) - lu(642) * lu(1411)
            lu(1427) = lu(1427) - lu(643) * lu(1411)
            lu(1429) = lu(1429) - lu(644) * lu(1411)
            lu(1433) = lu(1433) - lu(645) * lu(1411)
            lu(1436) = lu(1436) - lu(646) * lu(1411)
            lu(1437) = lu(1437) - lu(647) * lu(1411)
        END SUBROUTINE lu_fac14

        SUBROUTINE lu_fac15(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(650) = 1._r8 / lu(650)
            lu(651) = lu(651) * lu(650)
            lu(652) = lu(652) * lu(650)
            lu(653) = lu(653) * lu(650)
            lu(654) = lu(654) * lu(650)
            lu(655) = lu(655) * lu(650)
            lu(656) = lu(656) * lu(650)
            lu(657) = lu(657) * lu(650)
            lu(658) = lu(658) * lu(650)
            lu(659) = lu(659) * lu(650)
            lu(660) = lu(660) * lu(650)
            lu(939) = lu(939) - lu(651) * lu(937)
            lu(941) = - lu(652) * lu(937)
            lu(943) = lu(943) - lu(653) * lu(937)
            lu(944) = lu(944) - lu(654) * lu(937)
            lu(948) = lu(948) - lu(655) * lu(937)
            lu(949) = lu(949) - lu(656) * lu(937)
            lu(953) = lu(953) - lu(657) * lu(937)
            lu(954) = lu(954) - lu(658) * lu(937)
            lu(955) = lu(955) - lu(659) * lu(937)
            lu(956) = lu(956) - lu(660) * lu(937)
            lu(965) = lu(965) - lu(651) * lu(964)
            lu(967) = lu(967) - lu(652) * lu(964)
            lu(969) = lu(969) - lu(653) * lu(964)
            lu(970) = lu(970) - lu(654) * lu(964)
            lu(974) = lu(974) - lu(655) * lu(964)
            lu(975) = lu(975) - lu(656) * lu(964)
            lu(979) = lu(979) - lu(657) * lu(964)
            lu(980) = lu(980) - lu(658) * lu(964)
            lu(981) = lu(981) - lu(659) * lu(964)
            lu(982) = lu(982) - lu(660) * lu(964)
            lu(1106) = lu(1106) - lu(651) * lu(1098)
            lu(1108) = lu(1108) - lu(652) * lu(1098)
            lu(1110) = lu(1110) - lu(653) * lu(1098)
            lu(1111) = lu(1111) - lu(654) * lu(1098)
            lu(1115) = lu(1115) - lu(655) * lu(1098)
            lu(1116) = lu(1116) - lu(656) * lu(1098)
            lu(1120) = lu(1120) - lu(657) * lu(1098)
            lu(1121) = lu(1121) - lu(658) * lu(1098)
            lu(1122) = lu(1122) - lu(659) * lu(1098)
            lu(1123) = lu(1123) - lu(660) * lu(1098)
            lu(1141) = lu(1141) - lu(651) * lu(1139)
            lu(1143) = lu(1143) - lu(652) * lu(1139)
            lu(1145) = lu(1145) - lu(653) * lu(1139)
            lu(1146) = - lu(654) * lu(1139)
            lu(1150) = lu(1150) - lu(655) * lu(1139)
            lu(1151) = lu(1151) - lu(656) * lu(1139)
            lu(1155) = lu(1155) - lu(657) * lu(1139)
            lu(1156) = lu(1156) - lu(658) * lu(1139)
            lu(1157) = lu(1157) - lu(659) * lu(1139)
            lu(1158) = lu(1158) - lu(660) * lu(1139)
            lu(1161) = - lu(651) * lu(1160)
            lu(1163) = - lu(652) * lu(1160)
            lu(1165) = lu(1165) - lu(653) * lu(1160)
            lu(1166) = - lu(654) * lu(1160)
            lu(1170) = - lu(655) * lu(1160)
            lu(1171) = lu(1171) - lu(656) * lu(1160)
            lu(1175) = lu(1175) - lu(657) * lu(1160)
            lu(1176) = - lu(658) * lu(1160)
            lu(1177) = - lu(659) * lu(1160)
            lu(1178) = lu(1178) - lu(660) * lu(1160)
            lu(1375) = lu(1375) - lu(651) * lu(1366)
            lu(1377) = lu(1377) - lu(652) * lu(1366)
            lu(1379) = lu(1379) - lu(653) * lu(1366)
            lu(1380) = lu(1380) - lu(654) * lu(1366)
            lu(1384) = lu(1384) - lu(655) * lu(1366)
            lu(1385) = lu(1385) - lu(656) * lu(1366)
            lu(1389) = lu(1389) - lu(657) * lu(1366)
            lu(1390) = lu(1390) - lu(658) * lu(1366)
            lu(1391) = lu(1391) - lu(659) * lu(1366)
            lu(1392) = lu(1392) - lu(660) * lu(1366)
            lu(1441) = - lu(651) * lu(1440)
            lu(1443) = lu(1443) - lu(652) * lu(1440)
            lu(1445) = - lu(653) * lu(1440)
            lu(1446) = - lu(654) * lu(1440)
            lu(1450) = - lu(655) * lu(1440)
            lu(1451) = lu(1451) - lu(656) * lu(1440)
            lu(1455) = lu(1455) - lu(657) * lu(1440)
            lu(1456) = lu(1456) - lu(658) * lu(1440)
            lu(1457) = lu(1457) - lu(659) * lu(1440)
            lu(1458) = lu(1458) - lu(660) * lu(1440)
            lu(1467) = - lu(651) * lu(1465)
            lu(1469) = lu(1469) - lu(652) * lu(1465)
            lu(1471) = lu(1471) - lu(653) * lu(1465)
            lu(1472) = lu(1472) - lu(654) * lu(1465)
            lu(1476) = - lu(655) * lu(1465)
            lu(1477) = lu(1477) - lu(656) * lu(1465)
            lu(1481) = lu(1481) - lu(657) * lu(1465)
            lu(1482) = lu(1482) - lu(658) * lu(1465)
            lu(1483) = lu(1483) - lu(659) * lu(1465)
            lu(1484) = lu(1484) - lu(660) * lu(1465)
            lu(1491) = lu(1491) - lu(651) * lu(1490)
            lu(1493) = - lu(652) * lu(1490)
            lu(1495) = lu(1495) - lu(653) * lu(1490)
            lu(1496) = lu(1496) - lu(654) * lu(1490)
            lu(1500) = lu(1500) - lu(655) * lu(1490)
            lu(1501) = lu(1501) - lu(656) * lu(1490)
            lu(1505) = lu(1505) - lu(657) * lu(1490)
            lu(1506) = lu(1506) - lu(658) * lu(1490)
            lu(1507) = lu(1507) - lu(659) * lu(1490)
            lu(1508) = lu(1508) - lu(660) * lu(1490)
            lu(662) = 1._r8 / lu(662)
            lu(663) = lu(663) * lu(662)
            lu(664) = lu(664) * lu(662)
            lu(665) = lu(665) * lu(662)
            lu(666) = lu(666) * lu(662)
            lu(667) = lu(667) * lu(662)
            lu(668) = lu(668) * lu(662)
            lu(669) = lu(669) * lu(662)
            lu(678) = lu(678) - lu(663) * lu(676)
            lu(680) = lu(680) - lu(664) * lu(676)
            lu(681) = lu(681) - lu(665) * lu(676)
            lu(684) = lu(684) - lu(666) * lu(676)
            lu(685) = lu(685) - lu(667) * lu(676)
            lu(686) = - lu(668) * lu(676)
            lu(687) = lu(687) - lu(669) * lu(676)
            lu(701) = lu(701) - lu(663) * lu(695)
            lu(704) = lu(704) - lu(664) * lu(695)
            lu(705) = lu(705) - lu(665) * lu(695)
            lu(708) = lu(708) - lu(666) * lu(695)
            lu(709) = lu(709) - lu(667) * lu(695)
            lu(710) = - lu(668) * lu(695)
            lu(711) = lu(711) - lu(669) * lu(695)
            lu(723) = lu(723) - lu(663) * lu(719)
            lu(725) = lu(725) - lu(664) * lu(719)
            lu(726) = lu(726) - lu(665) * lu(719)
            lu(729) = lu(729) - lu(666) * lu(719)
            lu(730) = lu(730) - lu(667) * lu(719)
            lu(731) = - lu(668) * lu(719)
            lu(732) = - lu(669) * lu(719)
            lu(742) = lu(742) - lu(663) * lu(738)
            lu(746) = lu(746) - lu(664) * lu(738)
            lu(747) = lu(747) - lu(665) * lu(738)
            lu(750) = lu(750) - lu(666) * lu(738)
            lu(751) = lu(751) - lu(667) * lu(738)
            lu(752) = lu(752) - lu(668) * lu(738)
            lu(753) = lu(753) - lu(669) * lu(738)
            lu(761) = lu(761) - lu(663) * lu(759)
            lu(765) = lu(765) - lu(664) * lu(759)
            lu(766) = - lu(665) * lu(759)
            lu(769) = lu(769) - lu(666) * lu(759)
            lu(770) = lu(770) - lu(667) * lu(759)
            lu(771) = - lu(668) * lu(759)
            lu(772) = lu(772) - lu(669) * lu(759)
            lu(789) = lu(789) - lu(663) * lu(783)
            lu(793) = lu(793) - lu(664) * lu(783)
            lu(794) = lu(794) - lu(665) * lu(783)
            lu(797) = lu(797) - lu(666) * lu(783)
            lu(798) = lu(798) - lu(667) * lu(783)
            lu(799) = - lu(668) * lu(783)
            lu(800) = lu(800) - lu(669) * lu(783)
            lu(871) = lu(871) - lu(663) * lu(865)
            lu(876) = lu(876) - lu(664) * lu(865)
            lu(878) = lu(878) - lu(665) * lu(865)
            lu(881) = lu(881) - lu(666) * lu(865)
            lu(882) = lu(882) - lu(667) * lu(865)
            lu(883) = lu(883) - lu(668) * lu(865)
            lu(884) = lu(884) - lu(669) * lu(865)
            lu(1009) = lu(1009) - lu(663) * lu(1003)
            lu(1018) = lu(1018) - lu(664) * lu(1003)
            lu(1020) = lu(1020) - lu(665) * lu(1003)
            lu(1024) = lu(1024) - lu(666) * lu(1003)
            lu(1025) = lu(1025) - lu(667) * lu(1003)
            lu(1026) = lu(1026) - lu(668) * lu(1003)
            lu(1027) = lu(1027) - lu(669) * lu(1003)
            lu(1105) = lu(1105) - lu(663) * lu(1099)
            lu(1114) = lu(1114) - lu(664) * lu(1099)
            lu(1116) = lu(1116) - lu(665) * lu(1099)
            lu(1120) = lu(1120) - lu(666) * lu(1099)
            lu(1121) = lu(1121) - lu(667) * lu(1099)
            lu(1122) = lu(1122) - lu(668) * lu(1099)
            lu(1123) = lu(1123) - lu(669) * lu(1099)
            lu(1240) = lu(1240) - lu(663) * lu(1234)
            lu(1248) = lu(1248) - lu(664) * lu(1234)
            lu(1250) = lu(1250) - lu(665) * lu(1234)
            lu(1254) = lu(1254) - lu(666) * lu(1234)
            lu(1255) = lu(1255) - lu(667) * lu(1234)
            lu(1256) = lu(1256) - lu(668) * lu(1234)
            lu(1257) = lu(1257) - lu(669) * lu(1234)
            lu(1275) = lu(1275) - lu(663) * lu(1273)
            lu(1285) = lu(1285) - lu(664) * lu(1273)
            lu(1287) = lu(1287) - lu(665) * lu(1273)
            lu(1291) = lu(1291) - lu(666) * lu(1273)
            lu(1292) = lu(1292) - lu(667) * lu(1273)
            lu(1293) = lu(1293) - lu(668) * lu(1273)
            lu(1294) = lu(1294) - lu(669) * lu(1273)
            lu(1373) = lu(1373) - lu(663) * lu(1367)
            lu(1383) = lu(1383) - lu(664) * lu(1367)
            lu(1385) = lu(1385) - lu(665) * lu(1367)
            lu(1389) = lu(1389) - lu(666) * lu(1367)
            lu(1390) = lu(1390) - lu(667) * lu(1367)
            lu(1391) = lu(1391) - lu(668) * lu(1367)
            lu(1392) = lu(1392) - lu(669) * lu(1367)
            lu(1418) = lu(1418) - lu(663) * lu(1412)
            lu(1427) = lu(1427) - lu(664) * lu(1412)
            lu(1429) = lu(1429) - lu(665) * lu(1412)
            lu(1433) = lu(1433) - lu(666) * lu(1412)
            lu(1434) = lu(1434) - lu(667) * lu(1412)
            lu(1435) = lu(1435) - lu(668) * lu(1412)
            lu(1436) = lu(1436) - lu(669) * lu(1412)
            lu(677) = 1._r8 / lu(677)
            lu(678) = lu(678) * lu(677)
            lu(679) = lu(679) * lu(677)
            lu(680) = lu(680) * lu(677)
            lu(681) = lu(681) * lu(677)
            lu(682) = lu(682) * lu(677)
            lu(683) = lu(683) * lu(677)
            lu(684) = lu(684) * lu(677)
            lu(685) = lu(685) * lu(677)
            lu(686) = lu(686) * lu(677)
            lu(687) = lu(687) * lu(677)
            lu(688) = lu(688) * lu(677)
            lu(701) = lu(701) - lu(678) * lu(696)
            lu(702) = lu(702) - lu(679) * lu(696)
            lu(704) = lu(704) - lu(680) * lu(696)
            lu(705) = lu(705) - lu(681) * lu(696)
            lu(706) = lu(706) - lu(682) * lu(696)
            lu(707) = lu(707) - lu(683) * lu(696)
            lu(708) = lu(708) - lu(684) * lu(696)
            lu(709) = lu(709) - lu(685) * lu(696)
            lu(710) = lu(710) - lu(686) * lu(696)
            lu(711) = lu(711) - lu(687) * lu(696)
            lu(712) = lu(712) - lu(688) * lu(696)
            lu(723) = lu(723) - lu(678) * lu(720)
            lu(724) = lu(724) - lu(679) * lu(720)
            lu(725) = lu(725) - lu(680) * lu(720)
            lu(726) = lu(726) - lu(681) * lu(720)
            lu(727) = lu(727) - lu(682) * lu(720)
            lu(728) = lu(728) - lu(683) * lu(720)
            lu(729) = lu(729) - lu(684) * lu(720)
            lu(730) = lu(730) - lu(685) * lu(720)
            lu(731) = lu(731) - lu(686) * lu(720)
            lu(732) = lu(732) - lu(687) * lu(720)
            lu(733) = lu(733) - lu(688) * lu(720)
            lu(789) = lu(789) - lu(678) * lu(784)
            lu(790) = lu(790) - lu(679) * lu(784)
            lu(793) = lu(793) - lu(680) * lu(784)
            lu(794) = lu(794) - lu(681) * lu(784)
            lu(795) = lu(795) - lu(682) * lu(784)
            lu(796) = lu(796) - lu(683) * lu(784)
            lu(797) = lu(797) - lu(684) * lu(784)
            lu(798) = lu(798) - lu(685) * lu(784)
            lu(799) = lu(799) - lu(686) * lu(784)
            lu(800) = lu(800) - lu(687) * lu(784)
            lu(801) = lu(801) - lu(688) * lu(784)
            lu(871) = lu(871) - lu(678) * lu(866)
            lu(872) = lu(872) - lu(679) * lu(866)
            lu(876) = lu(876) - lu(680) * lu(866)
            lu(878) = lu(878) - lu(681) * lu(866)
            lu(879) = lu(879) - lu(682) * lu(866)
            lu(880) = lu(880) - lu(683) * lu(866)
            lu(881) = lu(881) - lu(684) * lu(866)
            lu(882) = lu(882) - lu(685) * lu(866)
            lu(883) = lu(883) - lu(686) * lu(866)
            lu(884) = lu(884) - lu(687) * lu(866)
            lu(885) = lu(885) - lu(688) * lu(866)
            lu(1009) = lu(1009) - lu(678) * lu(1004)
            lu(1012) = lu(1012) - lu(679) * lu(1004)
            lu(1018) = lu(1018) - lu(680) * lu(1004)
            lu(1020) = lu(1020) - lu(681) * lu(1004)
            lu(1022) = lu(1022) - lu(682) * lu(1004)
            lu(1023) = lu(1023) - lu(683) * lu(1004)
            lu(1024) = lu(1024) - lu(684) * lu(1004)
            lu(1025) = lu(1025) - lu(685) * lu(1004)
            lu(1026) = lu(1026) - lu(686) * lu(1004)
            lu(1027) = lu(1027) - lu(687) * lu(1004)
            lu(1028) = lu(1028) - lu(688) * lu(1004)
            lu(1105) = lu(1105) - lu(678) * lu(1100)
            lu(1108) = lu(1108) - lu(679) * lu(1100)
            lu(1114) = lu(1114) - lu(680) * lu(1100)
            lu(1116) = lu(1116) - lu(681) * lu(1100)
            lu(1118) = lu(1118) - lu(682) * lu(1100)
            lu(1119) = lu(1119) - lu(683) * lu(1100)
            lu(1120) = lu(1120) - lu(684) * lu(1100)
            lu(1121) = lu(1121) - lu(685) * lu(1100)
            lu(1122) = lu(1122) - lu(686) * lu(1100)
            lu(1123) = lu(1123) - lu(687) * lu(1100)
            lu(1124) = lu(1124) - lu(688) * lu(1100)
            lu(1240) = lu(1240) - lu(678) * lu(1235)
            lu(1242) = lu(1242) - lu(679) * lu(1235)
            lu(1248) = lu(1248) - lu(680) * lu(1235)
            lu(1250) = lu(1250) - lu(681) * lu(1235)
            lu(1252) = lu(1252) - lu(682) * lu(1235)
            lu(1253) = lu(1253) - lu(683) * lu(1235)
            lu(1254) = lu(1254) - lu(684) * lu(1235)
            lu(1255) = lu(1255) - lu(685) * lu(1235)
            lu(1256) = lu(1256) - lu(686) * lu(1235)
            lu(1257) = lu(1257) - lu(687) * lu(1235)
            lu(1258) = lu(1258) - lu(688) * lu(1235)
            lu(1373) = lu(1373) - lu(678) * lu(1368)
            lu(1377) = lu(1377) - lu(679) * lu(1368)
            lu(1383) = lu(1383) - lu(680) * lu(1368)
            lu(1385) = lu(1385) - lu(681) * lu(1368)
            lu(1387) = lu(1387) - lu(682) * lu(1368)
            lu(1388) = lu(1388) - lu(683) * lu(1368)
            lu(1389) = lu(1389) - lu(684) * lu(1368)
            lu(1390) = lu(1390) - lu(685) * lu(1368)
            lu(1391) = lu(1391) - lu(686) * lu(1368)
            lu(1392) = lu(1392) - lu(687) * lu(1368)
            lu(1393) = lu(1393) - lu(688) * lu(1368)
            lu(1418) = lu(1418) - lu(678) * lu(1413)
            lu(1421) = lu(1421) - lu(679) * lu(1413)
            lu(1427) = lu(1427) - lu(680) * lu(1413)
            lu(1429) = lu(1429) - lu(681) * lu(1413)
            lu(1431) = lu(1431) - lu(682) * lu(1413)
            lu(1432) = lu(1432) - lu(683) * lu(1413)
            lu(1433) = lu(1433) - lu(684) * lu(1413)
            lu(1434) = lu(1434) - lu(685) * lu(1413)
            lu(1435) = lu(1435) - lu(686) * lu(1413)
            lu(1436) = lu(1436) - lu(687) * lu(1413)
            lu(1437) = lu(1437) - lu(688) * lu(1413)
        END SUBROUTINE lu_fac15

        SUBROUTINE lu_fac16(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(697) = 1._r8 / lu(697)
            lu(698) = lu(698) * lu(697)
            lu(699) = lu(699) * lu(697)
            lu(700) = lu(700) * lu(697)
            lu(701) = lu(701) * lu(697)
            lu(702) = lu(702) * lu(697)
            lu(703) = lu(703) * lu(697)
            lu(704) = lu(704) * lu(697)
            lu(705) = lu(705) * lu(697)
            lu(706) = lu(706) * lu(697)
            lu(707) = lu(707) * lu(697)
            lu(708) = lu(708) * lu(697)
            lu(709) = lu(709) * lu(697)
            lu(710) = lu(710) * lu(697)
            lu(711) = lu(711) * lu(697)
            lu(712) = lu(712) * lu(697)
            lu(786) = lu(786) - lu(698) * lu(785)
            lu(787) = lu(787) - lu(699) * lu(785)
            lu(788) = lu(788) - lu(700) * lu(785)
            lu(789) = lu(789) - lu(701) * lu(785)
            lu(790) = lu(790) - lu(702) * lu(785)
            lu(792) = lu(792) - lu(703) * lu(785)
            lu(793) = lu(793) - lu(704) * lu(785)
            lu(794) = lu(794) - lu(705) * lu(785)
            lu(795) = lu(795) - lu(706) * lu(785)
            lu(796) = lu(796) - lu(707) * lu(785)
            lu(797) = lu(797) - lu(708) * lu(785)
            lu(798) = lu(798) - lu(709) * lu(785)
            lu(799) = lu(799) - lu(710) * lu(785)
            lu(800) = lu(800) - lu(711) * lu(785)
            lu(801) = lu(801) - lu(712) * lu(785)
            lu(868) = lu(868) - lu(698) * lu(867)
            lu(869) = lu(869) - lu(699) * lu(867)
            lu(870) = lu(870) - lu(700) * lu(867)
            lu(871) = lu(871) - lu(701) * lu(867)
            lu(872) = lu(872) - lu(702) * lu(867)
            lu(874) = lu(874) - lu(703) * lu(867)
            lu(876) = lu(876) - lu(704) * lu(867)
            lu(878) = lu(878) - lu(705) * lu(867)
            lu(879) = lu(879) - lu(706) * lu(867)
            lu(880) = lu(880) - lu(707) * lu(867)
            lu(881) = lu(881) - lu(708) * lu(867)
            lu(882) = lu(882) - lu(709) * lu(867)
            lu(883) = lu(883) - lu(710) * lu(867)
            lu(884) = lu(884) - lu(711) * lu(867)
            lu(885) = lu(885) - lu(712) * lu(867)
            lu(1006) = lu(1006) - lu(698) * lu(1005)
            lu(1007) = lu(1007) - lu(699) * lu(1005)
            lu(1008) = lu(1008) - lu(700) * lu(1005)
            lu(1009) = lu(1009) - lu(701) * lu(1005)
            lu(1012) = lu(1012) - lu(702) * lu(1005)
            lu(1016) = lu(1016) - lu(703) * lu(1005)
            lu(1018) = lu(1018) - lu(704) * lu(1005)
            lu(1020) = lu(1020) - lu(705) * lu(1005)
            lu(1022) = lu(1022) - lu(706) * lu(1005)
            lu(1023) = lu(1023) - lu(707) * lu(1005)
            lu(1024) = lu(1024) - lu(708) * lu(1005)
            lu(1025) = lu(1025) - lu(709) * lu(1005)
            lu(1026) = lu(1026) - lu(710) * lu(1005)
            lu(1027) = lu(1027) - lu(711) * lu(1005)
            lu(1028) = lu(1028) - lu(712) * lu(1005)
            lu(1102) = lu(1102) - lu(698) * lu(1101)
            lu(1103) = lu(1103) - lu(699) * lu(1101)
            lu(1104) = lu(1104) - lu(700) * lu(1101)
            lu(1105) = lu(1105) - lu(701) * lu(1101)
            lu(1108) = lu(1108) - lu(702) * lu(1101)
            lu(1112) = lu(1112) - lu(703) * lu(1101)
            lu(1114) = lu(1114) - lu(704) * lu(1101)
            lu(1116) = lu(1116) - lu(705) * lu(1101)
            lu(1118) = lu(1118) - lu(706) * lu(1101)
            lu(1119) = lu(1119) - lu(707) * lu(1101)
            lu(1120) = lu(1120) - lu(708) * lu(1101)
            lu(1121) = lu(1121) - lu(709) * lu(1101)
            lu(1122) = lu(1122) - lu(710) * lu(1101)
            lu(1123) = lu(1123) - lu(711) * lu(1101)
            lu(1124) = lu(1124) - lu(712) * lu(1101)
            lu(1237) = lu(1237) - lu(698) * lu(1236)
            lu(1238) = lu(1238) - lu(699) * lu(1236)
            lu(1239) = lu(1239) - lu(700) * lu(1236)
            lu(1240) = lu(1240) - lu(701) * lu(1236)
            lu(1242) = lu(1242) - lu(702) * lu(1236)
            lu(1246) = lu(1246) - lu(703) * lu(1236)
            lu(1248) = lu(1248) - lu(704) * lu(1236)
            lu(1250) = lu(1250) - lu(705) * lu(1236)
            lu(1252) = lu(1252) - lu(706) * lu(1236)
            lu(1253) = lu(1253) - lu(707) * lu(1236)
            lu(1254) = lu(1254) - lu(708) * lu(1236)
            lu(1255) = lu(1255) - lu(709) * lu(1236)
            lu(1256) = lu(1256) - lu(710) * lu(1236)
            lu(1257) = lu(1257) - lu(711) * lu(1236)
            lu(1258) = lu(1258) - lu(712) * lu(1236)
            lu(1370) = lu(1370) - lu(698) * lu(1369)
            lu(1371) = lu(1371) - lu(699) * lu(1369)
            lu(1372) = lu(1372) - lu(700) * lu(1369)
            lu(1373) = lu(1373) - lu(701) * lu(1369)
            lu(1377) = lu(1377) - lu(702) * lu(1369)
            lu(1381) = lu(1381) - lu(703) * lu(1369)
            lu(1383) = lu(1383) - lu(704) * lu(1369)
            lu(1385) = lu(1385) - lu(705) * lu(1369)
            lu(1387) = lu(1387) - lu(706) * lu(1369)
            lu(1388) = lu(1388) - lu(707) * lu(1369)
            lu(1389) = lu(1389) - lu(708) * lu(1369)
            lu(1390) = lu(1390) - lu(709) * lu(1369)
            lu(1391) = lu(1391) - lu(710) * lu(1369)
            lu(1392) = lu(1392) - lu(711) * lu(1369)
            lu(1393) = lu(1393) - lu(712) * lu(1369)
            lu(1415) = lu(1415) - lu(698) * lu(1414)
            lu(1416) = lu(1416) - lu(699) * lu(1414)
            lu(1417) = lu(1417) - lu(700) * lu(1414)
            lu(1418) = lu(1418) - lu(701) * lu(1414)
            lu(1421) = lu(1421) - lu(702) * lu(1414)
            lu(1425) = lu(1425) - lu(703) * lu(1414)
            lu(1427) = lu(1427) - lu(704) * lu(1414)
            lu(1429) = lu(1429) - lu(705) * lu(1414)
            lu(1431) = lu(1431) - lu(706) * lu(1414)
            lu(1432) = lu(1432) - lu(707) * lu(1414)
            lu(1433) = lu(1433) - lu(708) * lu(1414)
            lu(1434) = lu(1434) - lu(709) * lu(1414)
            lu(1435) = lu(1435) - lu(710) * lu(1414)
            lu(1436) = lu(1436) - lu(711) * lu(1414)
            lu(1437) = lu(1437) - lu(712) * lu(1414)
            lu(721) = 1._r8 / lu(721)
            lu(722) = lu(722) * lu(721)
            lu(723) = lu(723) * lu(721)
            lu(724) = lu(724) * lu(721)
            lu(725) = lu(725) * lu(721)
            lu(726) = lu(726) * lu(721)
            lu(727) = lu(727) * lu(721)
            lu(728) = lu(728) * lu(721)
            lu(729) = lu(729) * lu(721)
            lu(730) = lu(730) * lu(721)
            lu(731) = lu(731) * lu(721)
            lu(732) = lu(732) * lu(721)
            lu(733) = lu(733) * lu(721)
            lu(741) = - lu(722) * lu(739)
            lu(742) = lu(742) - lu(723) * lu(739)
            lu(743) = lu(743) - lu(724) * lu(739)
            lu(746) = lu(746) - lu(725) * lu(739)
            lu(747) = lu(747) - lu(726) * lu(739)
            lu(748) = lu(748) - lu(727) * lu(739)
            lu(749) = lu(749) - lu(728) * lu(739)
            lu(750) = lu(750) - lu(729) * lu(739)
            lu(751) = lu(751) - lu(730) * lu(739)
            lu(752) = lu(752) - lu(731) * lu(739)
            lu(753) = lu(753) - lu(732) * lu(739)
            lu(754) = lu(754) - lu(733) * lu(739)
            lu(788) = lu(788) - lu(722) * lu(786)
            lu(789) = lu(789) - lu(723) * lu(786)
            lu(790) = lu(790) - lu(724) * lu(786)
            lu(793) = lu(793) - lu(725) * lu(786)
            lu(794) = lu(794) - lu(726) * lu(786)
            lu(795) = lu(795) - lu(727) * lu(786)
            lu(796) = lu(796) - lu(728) * lu(786)
            lu(797) = lu(797) - lu(729) * lu(786)
            lu(798) = lu(798) - lu(730) * lu(786)
            lu(799) = lu(799) - lu(731) * lu(786)
            lu(800) = lu(800) - lu(732) * lu(786)
            lu(801) = lu(801) - lu(733) * lu(786)
            lu(870) = lu(870) - lu(722) * lu(868)
            lu(871) = lu(871) - lu(723) * lu(868)
            lu(872) = lu(872) - lu(724) * lu(868)
            lu(876) = lu(876) - lu(725) * lu(868)
            lu(878) = lu(878) - lu(726) * lu(868)
            lu(879) = lu(879) - lu(727) * lu(868)
            lu(880) = lu(880) - lu(728) * lu(868)
            lu(881) = lu(881) - lu(729) * lu(868)
            lu(882) = lu(882) - lu(730) * lu(868)
            lu(883) = lu(883) - lu(731) * lu(868)
            lu(884) = lu(884) - lu(732) * lu(868)
            lu(885) = lu(885) - lu(733) * lu(868)
            lu(1008) = lu(1008) - lu(722) * lu(1006)
            lu(1009) = lu(1009) - lu(723) * lu(1006)
            lu(1012) = lu(1012) - lu(724) * lu(1006)
            lu(1018) = lu(1018) - lu(725) * lu(1006)
            lu(1020) = lu(1020) - lu(726) * lu(1006)
            lu(1022) = lu(1022) - lu(727) * lu(1006)
            lu(1023) = lu(1023) - lu(728) * lu(1006)
            lu(1024) = lu(1024) - lu(729) * lu(1006)
            lu(1025) = lu(1025) - lu(730) * lu(1006)
            lu(1026) = lu(1026) - lu(731) * lu(1006)
            lu(1027) = lu(1027) - lu(732) * lu(1006)
            lu(1028) = lu(1028) - lu(733) * lu(1006)
            lu(1104) = lu(1104) - lu(722) * lu(1102)
            lu(1105) = lu(1105) - lu(723) * lu(1102)
            lu(1108) = lu(1108) - lu(724) * lu(1102)
            lu(1114) = lu(1114) - lu(725) * lu(1102)
            lu(1116) = lu(1116) - lu(726) * lu(1102)
            lu(1118) = lu(1118) - lu(727) * lu(1102)
            lu(1119) = lu(1119) - lu(728) * lu(1102)
            lu(1120) = lu(1120) - lu(729) * lu(1102)
            lu(1121) = lu(1121) - lu(730) * lu(1102)
            lu(1122) = lu(1122) - lu(731) * lu(1102)
            lu(1123) = lu(1123) - lu(732) * lu(1102)
            lu(1124) = lu(1124) - lu(733) * lu(1102)
            lu(1239) = lu(1239) - lu(722) * lu(1237)
            lu(1240) = lu(1240) - lu(723) * lu(1237)
            lu(1242) = lu(1242) - lu(724) * lu(1237)
            lu(1248) = lu(1248) - lu(725) * lu(1237)
            lu(1250) = lu(1250) - lu(726) * lu(1237)
            lu(1252) = lu(1252) - lu(727) * lu(1237)
            lu(1253) = lu(1253) - lu(728) * lu(1237)
            lu(1254) = lu(1254) - lu(729) * lu(1237)
            lu(1255) = lu(1255) - lu(730) * lu(1237)
            lu(1256) = lu(1256) - lu(731) * lu(1237)
            lu(1257) = lu(1257) - lu(732) * lu(1237)
            lu(1258) = lu(1258) - lu(733) * lu(1237)
            lu(1372) = lu(1372) - lu(722) * lu(1370)
            lu(1373) = lu(1373) - lu(723) * lu(1370)
            lu(1377) = lu(1377) - lu(724) * lu(1370)
            lu(1383) = lu(1383) - lu(725) * lu(1370)
            lu(1385) = lu(1385) - lu(726) * lu(1370)
            lu(1387) = lu(1387) - lu(727) * lu(1370)
            lu(1388) = lu(1388) - lu(728) * lu(1370)
            lu(1389) = lu(1389) - lu(729) * lu(1370)
            lu(1390) = lu(1390) - lu(730) * lu(1370)
            lu(1391) = lu(1391) - lu(731) * lu(1370)
            lu(1392) = lu(1392) - lu(732) * lu(1370)
            lu(1393) = lu(1393) - lu(733) * lu(1370)
            lu(1417) = lu(1417) - lu(722) * lu(1415)
            lu(1418) = lu(1418) - lu(723) * lu(1415)
            lu(1421) = lu(1421) - lu(724) * lu(1415)
            lu(1427) = lu(1427) - lu(725) * lu(1415)
            lu(1429) = lu(1429) - lu(726) * lu(1415)
            lu(1431) = lu(1431) - lu(727) * lu(1415)
            lu(1432) = lu(1432) - lu(728) * lu(1415)
            lu(1433) = lu(1433) - lu(729) * lu(1415)
            lu(1434) = lu(1434) - lu(730) * lu(1415)
            lu(1435) = lu(1435) - lu(731) * lu(1415)
            lu(1436) = lu(1436) - lu(732) * lu(1415)
            lu(1437) = lu(1437) - lu(733) * lu(1415)
            lu(740) = 1._r8 / lu(740)
            lu(741) = lu(741) * lu(740)
            lu(742) = lu(742) * lu(740)
            lu(743) = lu(743) * lu(740)
            lu(744) = lu(744) * lu(740)
            lu(745) = lu(745) * lu(740)
            lu(746) = lu(746) * lu(740)
            lu(747) = lu(747) * lu(740)
            lu(748) = lu(748) * lu(740)
            lu(749) = lu(749) * lu(740)
            lu(750) = lu(750) * lu(740)
            lu(751) = lu(751) * lu(740)
            lu(752) = lu(752) * lu(740)
            lu(753) = lu(753) * lu(740)
            lu(754) = lu(754) * lu(740)
            lu(788) = lu(788) - lu(741) * lu(787)
            lu(789) = lu(789) - lu(742) * lu(787)
            lu(790) = lu(790) - lu(743) * lu(787)
            lu(791) = - lu(744) * lu(787)
            lu(792) = lu(792) - lu(745) * lu(787)
            lu(793) = lu(793) - lu(746) * lu(787)
            lu(794) = lu(794) - lu(747) * lu(787)
            lu(795) = lu(795) - lu(748) * lu(787)
            lu(796) = lu(796) - lu(749) * lu(787)
            lu(797) = lu(797) - lu(750) * lu(787)
            lu(798) = lu(798) - lu(751) * lu(787)
            lu(799) = lu(799) - lu(752) * lu(787)
            lu(800) = lu(800) - lu(753) * lu(787)
            lu(801) = lu(801) - lu(754) * lu(787)
            lu(870) = lu(870) - lu(741) * lu(869)
            lu(871) = lu(871) - lu(742) * lu(869)
            lu(872) = lu(872) - lu(743) * lu(869)
            lu(873) = lu(873) - lu(744) * lu(869)
            lu(874) = lu(874) - lu(745) * lu(869)
            lu(876) = lu(876) - lu(746) * lu(869)
            lu(878) = lu(878) - lu(747) * lu(869)
            lu(879) = lu(879) - lu(748) * lu(869)
            lu(880) = lu(880) - lu(749) * lu(869)
            lu(881) = lu(881) - lu(750) * lu(869)
            lu(882) = lu(882) - lu(751) * lu(869)
            lu(883) = lu(883) - lu(752) * lu(869)
            lu(884) = lu(884) - lu(753) * lu(869)
            lu(885) = lu(885) - lu(754) * lu(869)
            lu(1008) = lu(1008) - lu(741) * lu(1007)
            lu(1009) = lu(1009) - lu(742) * lu(1007)
            lu(1012) = lu(1012) - lu(743) * lu(1007)
            lu(1013) = lu(1013) - lu(744) * lu(1007)
            lu(1016) = lu(1016) - lu(745) * lu(1007)
            lu(1018) = lu(1018) - lu(746) * lu(1007)
            lu(1020) = lu(1020) - lu(747) * lu(1007)
            lu(1022) = lu(1022) - lu(748) * lu(1007)
            lu(1023) = lu(1023) - lu(749) * lu(1007)
            lu(1024) = lu(1024) - lu(750) * lu(1007)
            lu(1025) = lu(1025) - lu(751) * lu(1007)
            lu(1026) = lu(1026) - lu(752) * lu(1007)
            lu(1027) = lu(1027) - lu(753) * lu(1007)
            lu(1028) = lu(1028) - lu(754) * lu(1007)
            lu(1104) = lu(1104) - lu(741) * lu(1103)
            lu(1105) = lu(1105) - lu(742) * lu(1103)
            lu(1108) = lu(1108) - lu(743) * lu(1103)
            lu(1109) = lu(1109) - lu(744) * lu(1103)
            lu(1112) = lu(1112) - lu(745) * lu(1103)
            lu(1114) = lu(1114) - lu(746) * lu(1103)
            lu(1116) = lu(1116) - lu(747) * lu(1103)
            lu(1118) = lu(1118) - lu(748) * lu(1103)
            lu(1119) = lu(1119) - lu(749) * lu(1103)
            lu(1120) = lu(1120) - lu(750) * lu(1103)
            lu(1121) = lu(1121) - lu(751) * lu(1103)
            lu(1122) = lu(1122) - lu(752) * lu(1103)
            lu(1123) = lu(1123) - lu(753) * lu(1103)
            lu(1124) = lu(1124) - lu(754) * lu(1103)
            lu(1239) = lu(1239) - lu(741) * lu(1238)
            lu(1240) = lu(1240) - lu(742) * lu(1238)
            lu(1242) = lu(1242) - lu(743) * lu(1238)
            lu(1243) = lu(1243) - lu(744) * lu(1238)
            lu(1246) = lu(1246) - lu(745) * lu(1238)
            lu(1248) = lu(1248) - lu(746) * lu(1238)
            lu(1250) = lu(1250) - lu(747) * lu(1238)
            lu(1252) = lu(1252) - lu(748) * lu(1238)
            lu(1253) = lu(1253) - lu(749) * lu(1238)
            lu(1254) = lu(1254) - lu(750) * lu(1238)
            lu(1255) = lu(1255) - lu(751) * lu(1238)
            lu(1256) = lu(1256) - lu(752) * lu(1238)
            lu(1257) = lu(1257) - lu(753) * lu(1238)
            lu(1258) = lu(1258) - lu(754) * lu(1238)
            lu(1372) = lu(1372) - lu(741) * lu(1371)
            lu(1373) = lu(1373) - lu(742) * lu(1371)
            lu(1377) = lu(1377) - lu(743) * lu(1371)
            lu(1378) = lu(1378) - lu(744) * lu(1371)
            lu(1381) = lu(1381) - lu(745) * lu(1371)
            lu(1383) = lu(1383) - lu(746) * lu(1371)
            lu(1385) = lu(1385) - lu(747) * lu(1371)
            lu(1387) = lu(1387) - lu(748) * lu(1371)
            lu(1388) = lu(1388) - lu(749) * lu(1371)
            lu(1389) = lu(1389) - lu(750) * lu(1371)
            lu(1390) = lu(1390) - lu(751) * lu(1371)
            lu(1391) = lu(1391) - lu(752) * lu(1371)
            lu(1392) = lu(1392) - lu(753) * lu(1371)
            lu(1393) = lu(1393) - lu(754) * lu(1371)
            lu(1417) = lu(1417) - lu(741) * lu(1416)
            lu(1418) = lu(1418) - lu(742) * lu(1416)
            lu(1421) = lu(1421) - lu(743) * lu(1416)
            lu(1422) = lu(1422) - lu(744) * lu(1416)
            lu(1425) = lu(1425) - lu(745) * lu(1416)
            lu(1427) = lu(1427) - lu(746) * lu(1416)
            lu(1429) = lu(1429) - lu(747) * lu(1416)
            lu(1431) = lu(1431) - lu(748) * lu(1416)
            lu(1432) = lu(1432) - lu(749) * lu(1416)
            lu(1433) = lu(1433) - lu(750) * lu(1416)
            lu(1434) = lu(1434) - lu(751) * lu(1416)
            lu(1435) = lu(1435) - lu(752) * lu(1416)
            lu(1436) = lu(1436) - lu(753) * lu(1416)
            lu(1437) = lu(1437) - lu(754) * lu(1416)
            lu(760) = 1._r8 / lu(760)
            lu(761) = lu(761) * lu(760)
            lu(762) = lu(762) * lu(760)
            lu(763) = lu(763) * lu(760)
            lu(764) = lu(764) * lu(760)
            lu(765) = lu(765) * lu(760)
            lu(766) = lu(766) * lu(760)
            lu(767) = lu(767) * lu(760)
            lu(768) = lu(768) * lu(760)
            lu(769) = lu(769) * lu(760)
            lu(770) = lu(770) * lu(760)
            lu(771) = lu(771) * lu(760)
            lu(772) = lu(772) * lu(760)
            lu(773) = lu(773) * lu(760)
            lu(789) = lu(789) - lu(761) * lu(788)
            lu(790) = lu(790) - lu(762) * lu(788)
            lu(791) = lu(791) - lu(763) * lu(788)
            lu(792) = lu(792) - lu(764) * lu(788)
            lu(793) = lu(793) - lu(765) * lu(788)
            lu(794) = lu(794) - lu(766) * lu(788)
            lu(795) = lu(795) - lu(767) * lu(788)
            lu(796) = lu(796) - lu(768) * lu(788)
            lu(797) = lu(797) - lu(769) * lu(788)
            lu(798) = lu(798) - lu(770) * lu(788)
            lu(799) = lu(799) - lu(771) * lu(788)
            lu(800) = lu(800) - lu(772) * lu(788)
            lu(801) = lu(801) - lu(773) * lu(788)
            lu(871) = lu(871) - lu(761) * lu(870)
            lu(872) = lu(872) - lu(762) * lu(870)
            lu(873) = lu(873) - lu(763) * lu(870)
            lu(874) = lu(874) - lu(764) * lu(870)
            lu(876) = lu(876) - lu(765) * lu(870)
            lu(878) = lu(878) - lu(766) * lu(870)
            lu(879) = lu(879) - lu(767) * lu(870)
            lu(880) = lu(880) - lu(768) * lu(870)
            lu(881) = lu(881) - lu(769) * lu(870)
            lu(882) = lu(882) - lu(770) * lu(870)
            lu(883) = lu(883) - lu(771) * lu(870)
            lu(884) = lu(884) - lu(772) * lu(870)
            lu(885) = lu(885) - lu(773) * lu(870)
            lu(1009) = lu(1009) - lu(761) * lu(1008)
            lu(1012) = lu(1012) - lu(762) * lu(1008)
            lu(1013) = lu(1013) - lu(763) * lu(1008)
            lu(1016) = lu(1016) - lu(764) * lu(1008)
            lu(1018) = lu(1018) - lu(765) * lu(1008)
            lu(1020) = lu(1020) - lu(766) * lu(1008)
            lu(1022) = lu(1022) - lu(767) * lu(1008)
            lu(1023) = lu(1023) - lu(768) * lu(1008)
            lu(1024) = lu(1024) - lu(769) * lu(1008)
            lu(1025) = lu(1025) - lu(770) * lu(1008)
            lu(1026) = lu(1026) - lu(771) * lu(1008)
            lu(1027) = lu(1027) - lu(772) * lu(1008)
            lu(1028) = lu(1028) - lu(773) * lu(1008)
            lu(1105) = lu(1105) - lu(761) * lu(1104)
            lu(1108) = lu(1108) - lu(762) * lu(1104)
            lu(1109) = lu(1109) - lu(763) * lu(1104)
            lu(1112) = lu(1112) - lu(764) * lu(1104)
            lu(1114) = lu(1114) - lu(765) * lu(1104)
            lu(1116) = lu(1116) - lu(766) * lu(1104)
            lu(1118) = lu(1118) - lu(767) * lu(1104)
            lu(1119) = lu(1119) - lu(768) * lu(1104)
            lu(1120) = lu(1120) - lu(769) * lu(1104)
            lu(1121) = lu(1121) - lu(770) * lu(1104)
            lu(1122) = lu(1122) - lu(771) * lu(1104)
            lu(1123) = lu(1123) - lu(772) * lu(1104)
            lu(1124) = lu(1124) - lu(773) * lu(1104)
            lu(1240) = lu(1240) - lu(761) * lu(1239)
            lu(1242) = lu(1242) - lu(762) * lu(1239)
            lu(1243) = lu(1243) - lu(763) * lu(1239)
            lu(1246) = lu(1246) - lu(764) * lu(1239)
            lu(1248) = lu(1248) - lu(765) * lu(1239)
            lu(1250) = lu(1250) - lu(766) * lu(1239)
            lu(1252) = lu(1252) - lu(767) * lu(1239)
            lu(1253) = lu(1253) - lu(768) * lu(1239)
            lu(1254) = lu(1254) - lu(769) * lu(1239)
            lu(1255) = lu(1255) - lu(770) * lu(1239)
            lu(1256) = lu(1256) - lu(771) * lu(1239)
            lu(1257) = lu(1257) - lu(772) * lu(1239)
            lu(1258) = lu(1258) - lu(773) * lu(1239)
            lu(1275) = lu(1275) - lu(761) * lu(1274)
            lu(1279) = lu(1279) - lu(762) * lu(1274)
            lu(1280) = lu(1280) - lu(763) * lu(1274)
            lu(1283) = lu(1283) - lu(764) * lu(1274)
            lu(1285) = lu(1285) - lu(765) * lu(1274)
            lu(1287) = lu(1287) - lu(766) * lu(1274)
            lu(1289) = lu(1289) - lu(767) * lu(1274)
            lu(1290) = lu(1290) - lu(768) * lu(1274)
            lu(1291) = lu(1291) - lu(769) * lu(1274)
            lu(1292) = lu(1292) - lu(770) * lu(1274)
            lu(1293) = lu(1293) - lu(771) * lu(1274)
            lu(1294) = lu(1294) - lu(772) * lu(1274)
            lu(1295) = lu(1295) - lu(773) * lu(1274)
            lu(1373) = lu(1373) - lu(761) * lu(1372)
            lu(1377) = lu(1377) - lu(762) * lu(1372)
            lu(1378) = lu(1378) - lu(763) * lu(1372)
            lu(1381) = lu(1381) - lu(764) * lu(1372)
            lu(1383) = lu(1383) - lu(765) * lu(1372)
            lu(1385) = lu(1385) - lu(766) * lu(1372)
            lu(1387) = lu(1387) - lu(767) * lu(1372)
            lu(1388) = lu(1388) - lu(768) * lu(1372)
            lu(1389) = lu(1389) - lu(769) * lu(1372)
            lu(1390) = lu(1390) - lu(770) * lu(1372)
            lu(1391) = lu(1391) - lu(771) * lu(1372)
            lu(1392) = lu(1392) - lu(772) * lu(1372)
            lu(1393) = lu(1393) - lu(773) * lu(1372)
            lu(1418) = lu(1418) - lu(761) * lu(1417)
            lu(1421) = lu(1421) - lu(762) * lu(1417)
            lu(1422) = lu(1422) - lu(763) * lu(1417)
            lu(1425) = lu(1425) - lu(764) * lu(1417)
            lu(1427) = lu(1427) - lu(765) * lu(1417)
            lu(1429) = lu(1429) - lu(766) * lu(1417)
            lu(1431) = lu(1431) - lu(767) * lu(1417)
            lu(1432) = lu(1432) - lu(768) * lu(1417)
            lu(1433) = lu(1433) - lu(769) * lu(1417)
            lu(1434) = lu(1434) - lu(770) * lu(1417)
            lu(1435) = lu(1435) - lu(771) * lu(1417)
            lu(1436) = lu(1436) - lu(772) * lu(1417)
            lu(1437) = lu(1437) - lu(773) * lu(1417)
        END SUBROUTINE lu_fac16

        SUBROUTINE lu_fac17(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(789) = 1._r8 / lu(789)
            lu(790) = lu(790) * lu(789)
            lu(791) = lu(791) * lu(789)
            lu(792) = lu(792) * lu(789)
            lu(793) = lu(793) * lu(789)
            lu(794) = lu(794) * lu(789)
            lu(795) = lu(795) * lu(789)
            lu(796) = lu(796) * lu(789)
            lu(797) = lu(797) * lu(789)
            lu(798) = lu(798) * lu(789)
            lu(799) = lu(799) * lu(789)
            lu(800) = lu(800) * lu(789)
            lu(801) = lu(801) * lu(789)
            lu(872) = lu(872) - lu(790) * lu(871)
            lu(873) = lu(873) - lu(791) * lu(871)
            lu(874) = lu(874) - lu(792) * lu(871)
            lu(876) = lu(876) - lu(793) * lu(871)
            lu(878) = lu(878) - lu(794) * lu(871)
            lu(879) = lu(879) - lu(795) * lu(871)
            lu(880) = lu(880) - lu(796) * lu(871)
            lu(881) = lu(881) - lu(797) * lu(871)
            lu(882) = lu(882) - lu(798) * lu(871)
            lu(883) = lu(883) - lu(799) * lu(871)
            lu(884) = lu(884) - lu(800) * lu(871)
            lu(885) = lu(885) - lu(801) * lu(871)
            lu(1012) = lu(1012) - lu(790) * lu(1009)
            lu(1013) = lu(1013) - lu(791) * lu(1009)
            lu(1016) = lu(1016) - lu(792) * lu(1009)
            lu(1018) = lu(1018) - lu(793) * lu(1009)
            lu(1020) = lu(1020) - lu(794) * lu(1009)
            lu(1022) = lu(1022) - lu(795) * lu(1009)
            lu(1023) = lu(1023) - lu(796) * lu(1009)
            lu(1024) = lu(1024) - lu(797) * lu(1009)
            lu(1025) = lu(1025) - lu(798) * lu(1009)
            lu(1026) = lu(1026) - lu(799) * lu(1009)
            lu(1027) = lu(1027) - lu(800) * lu(1009)
            lu(1028) = lu(1028) - lu(801) * lu(1009)
            lu(1108) = lu(1108) - lu(790) * lu(1105)
            lu(1109) = lu(1109) - lu(791) * lu(1105)
            lu(1112) = lu(1112) - lu(792) * lu(1105)
            lu(1114) = lu(1114) - lu(793) * lu(1105)
            lu(1116) = lu(1116) - lu(794) * lu(1105)
            lu(1118) = lu(1118) - lu(795) * lu(1105)
            lu(1119) = lu(1119) - lu(796) * lu(1105)
            lu(1120) = lu(1120) - lu(797) * lu(1105)
            lu(1121) = lu(1121) - lu(798) * lu(1105)
            lu(1122) = lu(1122) - lu(799) * lu(1105)
            lu(1123) = lu(1123) - lu(800) * lu(1105)
            lu(1124) = lu(1124) - lu(801) * lu(1105)
            lu(1143) = lu(1143) - lu(790) * lu(1140)
            lu(1144) = lu(1144) - lu(791) * lu(1140)
            lu(1147) = lu(1147) - lu(792) * lu(1140)
            lu(1149) = lu(1149) - lu(793) * lu(1140)
            lu(1151) = lu(1151) - lu(794) * lu(1140)
            lu(1153) = lu(1153) - lu(795) * lu(1140)
            lu(1154) = lu(1154) - lu(796) * lu(1140)
            lu(1155) = lu(1155) - lu(797) * lu(1140)
            lu(1156) = lu(1156) - lu(798) * lu(1140)
            lu(1157) = lu(1157) - lu(799) * lu(1140)
            lu(1158) = lu(1158) - lu(800) * lu(1140)
            lu(1159) = lu(1159) - lu(801) * lu(1140)
            lu(1242) = lu(1242) - lu(790) * lu(1240)
            lu(1243) = lu(1243) - lu(791) * lu(1240)
            lu(1246) = lu(1246) - lu(792) * lu(1240)
            lu(1248) = lu(1248) - lu(793) * lu(1240)
            lu(1250) = lu(1250) - lu(794) * lu(1240)
            lu(1252) = lu(1252) - lu(795) * lu(1240)
            lu(1253) = lu(1253) - lu(796) * lu(1240)
            lu(1254) = lu(1254) - lu(797) * lu(1240)
            lu(1255) = lu(1255) - lu(798) * lu(1240)
            lu(1256) = lu(1256) - lu(799) * lu(1240)
            lu(1257) = lu(1257) - lu(800) * lu(1240)
            lu(1258) = lu(1258) - lu(801) * lu(1240)
            lu(1279) = lu(1279) - lu(790) * lu(1275)
            lu(1280) = lu(1280) - lu(791) * lu(1275)
            lu(1283) = lu(1283) - lu(792) * lu(1275)
            lu(1285) = lu(1285) - lu(793) * lu(1275)
            lu(1287) = lu(1287) - lu(794) * lu(1275)
            lu(1289) = lu(1289) - lu(795) * lu(1275)
            lu(1290) = lu(1290) - lu(796) * lu(1275)
            lu(1291) = lu(1291) - lu(797) * lu(1275)
            lu(1292) = lu(1292) - lu(798) * lu(1275)
            lu(1293) = lu(1293) - lu(799) * lu(1275)
            lu(1294) = lu(1294) - lu(800) * lu(1275)
            lu(1295) = lu(1295) - lu(801) * lu(1275)
            lu(1377) = lu(1377) - lu(790) * lu(1373)
            lu(1378) = lu(1378) - lu(791) * lu(1373)
            lu(1381) = lu(1381) - lu(792) * lu(1373)
            lu(1383) = lu(1383) - lu(793) * lu(1373)
            lu(1385) = lu(1385) - lu(794) * lu(1373)
            lu(1387) = lu(1387) - lu(795) * lu(1373)
            lu(1388) = lu(1388) - lu(796) * lu(1373)
            lu(1389) = lu(1389) - lu(797) * lu(1373)
            lu(1390) = lu(1390) - lu(798) * lu(1373)
            lu(1391) = lu(1391) - lu(799) * lu(1373)
            lu(1392) = lu(1392) - lu(800) * lu(1373)
            lu(1393) = lu(1393) - lu(801) * lu(1373)
            lu(1421) = lu(1421) - lu(790) * lu(1418)
            lu(1422) = lu(1422) - lu(791) * lu(1418)
            lu(1425) = lu(1425) - lu(792) * lu(1418)
            lu(1427) = lu(1427) - lu(793) * lu(1418)
            lu(1429) = lu(1429) - lu(794) * lu(1418)
            lu(1431) = lu(1431) - lu(795) * lu(1418)
            lu(1432) = lu(1432) - lu(796) * lu(1418)
            lu(1433) = lu(1433) - lu(797) * lu(1418)
            lu(1434) = lu(1434) - lu(798) * lu(1418)
            lu(1435) = lu(1435) - lu(799) * lu(1418)
            lu(1436) = lu(1436) - lu(800) * lu(1418)
            lu(1437) = lu(1437) - lu(801) * lu(1418)
            lu(805) = 1._r8 / lu(805)
            lu(806) = lu(806) * lu(805)
            lu(807) = lu(807) * lu(805)
            lu(808) = lu(808) * lu(805)
            lu(809) = lu(809) * lu(805)
            lu(810) = lu(810) * lu(805)
            lu(811) = lu(811) * lu(805)
            lu(812) = lu(812) * lu(805)
            lu(813) = lu(813) * lu(805)
            lu(814) = lu(814) * lu(805)
            lu(815) = lu(815) * lu(805)
            lu(816) = lu(816) * lu(805)
            lu(817) = lu(817) * lu(805)
            lu(818) = lu(818) * lu(805)
            lu(902) = - lu(806) * lu(901)
            lu(903) = lu(903) - lu(807) * lu(901)
            lu(904) = lu(904) - lu(808) * lu(901)
            lu(906) = lu(906) - lu(809) * lu(901)
            lu(907) = - lu(810) * lu(901)
            lu(908) = lu(908) - lu(811) * lu(901)
            lu(909) = - lu(812) * lu(901)
            lu(910) = lu(910) - lu(813) * lu(901)
            lu(911) = - lu(814) * lu(901)
            lu(912) = lu(912) - lu(815) * lu(901)
            lu(913) = lu(913) - lu(816) * lu(901)
            lu(914) = lu(914) - lu(817) * lu(901)
            lu(915) = lu(915) - lu(818) * lu(901)
            lu(940) = lu(940) - lu(806) * lu(938)
            lu(942) = lu(942) - lu(807) * lu(938)
            lu(943) = lu(943) - lu(808) * lu(938)
            lu(945) = lu(945) - lu(809) * lu(938)
            lu(946) = lu(946) - lu(810) * lu(938)
            lu(947) = lu(947) - lu(811) * lu(938)
            lu(948) = lu(948) - lu(812) * lu(938)
            lu(949) = lu(949) - lu(813) * lu(938)
            lu(950) = lu(950) - lu(814) * lu(938)
            lu(951) = lu(951) - lu(815) * lu(938)
            lu(952) = lu(952) - lu(816) * lu(938)
            lu(953) = lu(953) - lu(817) * lu(938)
            lu(956) = lu(956) - lu(818) * lu(938)
            lu(1011) = lu(1011) - lu(806) * lu(1010)
            lu(1013) = lu(1013) - lu(807) * lu(1010)
            lu(1014) = lu(1014) - lu(808) * lu(1010)
            lu(1016) = lu(1016) - lu(809) * lu(1010)
            lu(1017) = lu(1017) - lu(810) * lu(1010)
            lu(1018) = lu(1018) - lu(811) * lu(1010)
            lu(1019) = lu(1019) - lu(812) * lu(1010)
            lu(1020) = lu(1020) - lu(813) * lu(1010)
            lu(1021) = lu(1021) - lu(814) * lu(1010)
            lu(1022) = lu(1022) - lu(815) * lu(1010)
            lu(1023) = lu(1023) - lu(816) * lu(1010)
            lu(1024) = lu(1024) - lu(817) * lu(1010)
            lu(1027) = lu(1027) - lu(818) * lu(1010)
            lu(1038) = lu(1038) - lu(806) * lu(1036)
            lu(1040) = lu(1040) - lu(807) * lu(1036)
            lu(1041) = lu(1041) - lu(808) * lu(1036)
            lu(1043) = - lu(809) * lu(1036)
            lu(1044) = lu(1044) - lu(810) * lu(1036)
            lu(1045) = lu(1045) - lu(811) * lu(1036)
            lu(1046) = lu(1046) - lu(812) * lu(1036)
            lu(1047) = - lu(813) * lu(1036)
            lu(1048) = lu(1048) - lu(814) * lu(1036)
            lu(1049) = lu(1049) - lu(815) * lu(1036)
            lu(1050) = lu(1050) - lu(816) * lu(1036)
            lu(1051) = lu(1051) - lu(817) * lu(1036)
            lu(1054) = lu(1054) - lu(818) * lu(1036)
            lu(1187) = lu(1187) - lu(806) * lu(1185)
            lu(1188) = lu(1188) - lu(807) * lu(1185)
            lu(1189) = lu(1189) - lu(808) * lu(1185)
            lu(1191) = - lu(809) * lu(1185)
            lu(1192) = lu(1192) - lu(810) * lu(1185)
            lu(1193) = lu(1193) - lu(811) * lu(1185)
            lu(1194) = lu(1194) - lu(812) * lu(1185)
            lu(1195) = - lu(813) * lu(1185)
            lu(1196) = lu(1196) - lu(814) * lu(1185)
            lu(1197) = lu(1197) - lu(815) * lu(1185)
            lu(1198) = lu(1198) - lu(816) * lu(1185)
            lu(1199) = lu(1199) - lu(817) * lu(1185)
            lu(1202) = lu(1202) - lu(818) * lu(1185)
            lu(1278) = lu(1278) - lu(806) * lu(1276)
            lu(1280) = lu(1280) - lu(807) * lu(1276)
            lu(1281) = lu(1281) - lu(808) * lu(1276)
            lu(1283) = lu(1283) - lu(809) * lu(1276)
            lu(1284) = lu(1284) - lu(810) * lu(1276)
            lu(1285) = lu(1285) - lu(811) * lu(1276)
            lu(1286) = lu(1286) - lu(812) * lu(1276)
            lu(1287) = lu(1287) - lu(813) * lu(1276)
            lu(1288) = lu(1288) - lu(814) * lu(1276)
            lu(1289) = lu(1289) - lu(815) * lu(1276)
            lu(1290) = lu(1290) - lu(816) * lu(1276)
            lu(1291) = lu(1291) - lu(817) * lu(1276)
            lu(1294) = lu(1294) - lu(818) * lu(1276)
            lu(1376) = lu(1376) - lu(806) * lu(1374)
            lu(1378) = lu(1378) - lu(807) * lu(1374)
            lu(1379) = lu(1379) - lu(808) * lu(1374)
            lu(1381) = lu(1381) - lu(809) * lu(1374)
            lu(1382) = lu(1382) - lu(810) * lu(1374)
            lu(1383) = lu(1383) - lu(811) * lu(1374)
            lu(1384) = lu(1384) - lu(812) * lu(1374)
            lu(1385) = lu(1385) - lu(813) * lu(1374)
            lu(1386) = lu(1386) - lu(814) * lu(1374)
            lu(1387) = lu(1387) - lu(815) * lu(1374)
            lu(1388) = lu(1388) - lu(816) * lu(1374)
            lu(1389) = lu(1389) - lu(817) * lu(1374)
            lu(1392) = lu(1392) - lu(818) * lu(1374)
            lu(1420) = - lu(806) * lu(1419)
            lu(1422) = lu(1422) - lu(807) * lu(1419)
            lu(1423) = lu(1423) - lu(808) * lu(1419)
            lu(1425) = lu(1425) - lu(809) * lu(1419)
            lu(1426) = - lu(810) * lu(1419)
            lu(1427) = lu(1427) - lu(811) * lu(1419)
            lu(1428) = - lu(812) * lu(1419)
            lu(1429) = lu(1429) - lu(813) * lu(1419)
            lu(1430) = - lu(814) * lu(1419)
            lu(1431) = lu(1431) - lu(815) * lu(1419)
            lu(1432) = lu(1432) - lu(816) * lu(1419)
            lu(1433) = lu(1433) - lu(817) * lu(1419)
            lu(1436) = lu(1436) - lu(818) * lu(1419)
            lu(1468) = - lu(806) * lu(1466)
            lu(1470) = - lu(807) * lu(1466)
            lu(1471) = lu(1471) - lu(808) * lu(1466)
            lu(1473) = - lu(809) * lu(1466)
            lu(1474) = - lu(810) * lu(1466)
            lu(1475) = lu(1475) - lu(811) * lu(1466)
            lu(1476) = lu(1476) - lu(812) * lu(1466)
            lu(1477) = lu(1477) - lu(813) * lu(1466)
            lu(1478) = - lu(814) * lu(1466)
            lu(1479) = - lu(815) * lu(1466)
            lu(1480) = - lu(816) * lu(1466)
            lu(1481) = lu(1481) - lu(817) * lu(1466)
            lu(1484) = lu(1484) - lu(818) * lu(1466)
            lu(824) = 1._r8 / lu(824)
            lu(825) = lu(825) * lu(824)
            lu(826) = lu(826) * lu(824)
            lu(827) = lu(827) * lu(824)
            lu(828) = lu(828) * lu(824)
            lu(829) = lu(829) * lu(824)
            lu(830) = lu(830) * lu(824)
            lu(831) = lu(831) * lu(824)
            lu(832) = lu(832) * lu(824)
            lu(833) = lu(833) * lu(824)
            lu(834) = lu(834) * lu(824)
            lu(835) = lu(835) * lu(824)
            lu(836) = lu(836) * lu(824)
            lu(940) = lu(940) - lu(825) * lu(939)
            lu(943) = lu(943) - lu(826) * lu(939)
            lu(944) = lu(944) - lu(827) * lu(939)
            lu(946) = lu(946) - lu(828) * lu(939)
            lu(948) = lu(948) - lu(829) * lu(939)
            lu(949) = lu(949) - lu(830) * lu(939)
            lu(950) = lu(950) - lu(831) * lu(939)
            lu(952) = lu(952) - lu(832) * lu(939)
            lu(953) = lu(953) - lu(833) * lu(939)
            lu(954) = lu(954) - lu(834) * lu(939)
            lu(955) = lu(955) - lu(835) * lu(939)
            lu(956) = lu(956) - lu(836) * lu(939)
            lu(966) = lu(966) - lu(825) * lu(965)
            lu(969) = lu(969) - lu(826) * lu(965)
            lu(970) = lu(970) - lu(827) * lu(965)
            lu(972) = - lu(828) * lu(965)
            lu(974) = lu(974) - lu(829) * lu(965)
            lu(975) = lu(975) - lu(830) * lu(965)
            lu(976) = - lu(831) * lu(965)
            lu(978) = - lu(832) * lu(965)
            lu(979) = lu(979) - lu(833) * lu(965)
            lu(980) = lu(980) - lu(834) * lu(965)
            lu(981) = lu(981) - lu(835) * lu(965)
            lu(982) = lu(982) - lu(836) * lu(965)
            lu(1038) = lu(1038) - lu(825) * lu(1037)
            lu(1041) = lu(1041) - lu(826) * lu(1037)
            lu(1042) = - lu(827) * lu(1037)
            lu(1044) = lu(1044) - lu(828) * lu(1037)
            lu(1046) = lu(1046) - lu(829) * lu(1037)
            lu(1047) = lu(1047) - lu(830) * lu(1037)
            lu(1048) = lu(1048) - lu(831) * lu(1037)
            lu(1050) = lu(1050) - lu(832) * lu(1037)
            lu(1051) = lu(1051) - lu(833) * lu(1037)
            lu(1052) = lu(1052) - lu(834) * lu(1037)
            lu(1053) = lu(1053) - lu(835) * lu(1037)
            lu(1054) = lu(1054) - lu(836) * lu(1037)
            lu(1107) = lu(1107) - lu(825) * lu(1106)
            lu(1110) = lu(1110) - lu(826) * lu(1106)
            lu(1111) = lu(1111) - lu(827) * lu(1106)
            lu(1113) = lu(1113) - lu(828) * lu(1106)
            lu(1115) = lu(1115) - lu(829) * lu(1106)
            lu(1116) = lu(1116) - lu(830) * lu(1106)
            lu(1117) = lu(1117) - lu(831) * lu(1106)
            lu(1119) = lu(1119) - lu(832) * lu(1106)
            lu(1120) = lu(1120) - lu(833) * lu(1106)
            lu(1121) = lu(1121) - lu(834) * lu(1106)
            lu(1122) = lu(1122) - lu(835) * lu(1106)
            lu(1123) = lu(1123) - lu(836) * lu(1106)
            lu(1142) = lu(1142) - lu(825) * lu(1141)
            lu(1145) = lu(1145) - lu(826) * lu(1141)
            lu(1146) = lu(1146) - lu(827) * lu(1141)
            lu(1148) = lu(1148) - lu(828) * lu(1141)
            lu(1150) = lu(1150) - lu(829) * lu(1141)
            lu(1151) = lu(1151) - lu(830) * lu(1141)
            lu(1152) = - lu(831) * lu(1141)
            lu(1154) = lu(1154) - lu(832) * lu(1141)
            lu(1155) = lu(1155) - lu(833) * lu(1141)
            lu(1156) = lu(1156) - lu(834) * lu(1141)
            lu(1157) = lu(1157) - lu(835) * lu(1141)
            lu(1158) = lu(1158) - lu(836) * lu(1141)
            lu(1162) = - lu(825) * lu(1161)
            lu(1165) = lu(1165) - lu(826) * lu(1161)
            lu(1166) = lu(1166) - lu(827) * lu(1161)
            lu(1168) = - lu(828) * lu(1161)
            lu(1170) = lu(1170) - lu(829) * lu(1161)
            lu(1171) = lu(1171) - lu(830) * lu(1161)
            lu(1172) = - lu(831) * lu(1161)
            lu(1174) = - lu(832) * lu(1161)
            lu(1175) = lu(1175) - lu(833) * lu(1161)
            lu(1176) = lu(1176) - lu(834) * lu(1161)
            lu(1177) = lu(1177) - lu(835) * lu(1161)
            lu(1178) = lu(1178) - lu(836) * lu(1161)
            lu(1187) = lu(1187) - lu(825) * lu(1186)
            lu(1189) = lu(1189) - lu(826) * lu(1186)
            lu(1190) = - lu(827) * lu(1186)
            lu(1192) = lu(1192) - lu(828) * lu(1186)
            lu(1194) = lu(1194) - lu(829) * lu(1186)
            lu(1195) = lu(1195) - lu(830) * lu(1186)
            lu(1196) = lu(1196) - lu(831) * lu(1186)
            lu(1198) = lu(1198) - lu(832) * lu(1186)
            lu(1199) = lu(1199) - lu(833) * lu(1186)
            lu(1200) = lu(1200) - lu(834) * lu(1186)
            lu(1201) = lu(1201) - lu(835) * lu(1186)
            lu(1202) = lu(1202) - lu(836) * lu(1186)
            lu(1278) = lu(1278) - lu(825) * lu(1277)
            lu(1281) = lu(1281) - lu(826) * lu(1277)
            lu(1282) = lu(1282) - lu(827) * lu(1277)
            lu(1284) = lu(1284) - lu(828) * lu(1277)
            lu(1286) = lu(1286) - lu(829) * lu(1277)
            lu(1287) = lu(1287) - lu(830) * lu(1277)
            lu(1288) = lu(1288) - lu(831) * lu(1277)
            lu(1290) = lu(1290) - lu(832) * lu(1277)
            lu(1291) = lu(1291) - lu(833) * lu(1277)
            lu(1292) = lu(1292) - lu(834) * lu(1277)
            lu(1293) = lu(1293) - lu(835) * lu(1277)
            lu(1294) = lu(1294) - lu(836) * lu(1277)
            lu(1376) = lu(1376) - lu(825) * lu(1375)
            lu(1379) = lu(1379) - lu(826) * lu(1375)
            lu(1380) = lu(1380) - lu(827) * lu(1375)
            lu(1382) = lu(1382) - lu(828) * lu(1375)
            lu(1384) = lu(1384) - lu(829) * lu(1375)
            lu(1385) = lu(1385) - lu(830) * lu(1375)
            lu(1386) = lu(1386) - lu(831) * lu(1375)
            lu(1388) = lu(1388) - lu(832) * lu(1375)
            lu(1389) = lu(1389) - lu(833) * lu(1375)
            lu(1390) = lu(1390) - lu(834) * lu(1375)
            lu(1391) = lu(1391) - lu(835) * lu(1375)
            lu(1392) = lu(1392) - lu(836) * lu(1375)
            lu(1442) = - lu(825) * lu(1441)
            lu(1445) = lu(1445) - lu(826) * lu(1441)
            lu(1446) = lu(1446) - lu(827) * lu(1441)
            lu(1448) = - lu(828) * lu(1441)
            lu(1450) = lu(1450) - lu(829) * lu(1441)
            lu(1451) = lu(1451) - lu(830) * lu(1441)
            lu(1452) = - lu(831) * lu(1441)
            lu(1454) = lu(1454) - lu(832) * lu(1441)
            lu(1455) = lu(1455) - lu(833) * lu(1441)
            lu(1456) = lu(1456) - lu(834) * lu(1441)
            lu(1457) = lu(1457) - lu(835) * lu(1441)
            lu(1458) = lu(1458) - lu(836) * lu(1441)
            lu(1468) = lu(1468) - lu(825) * lu(1467)
            lu(1471) = lu(1471) - lu(826) * lu(1467)
            lu(1472) = lu(1472) - lu(827) * lu(1467)
            lu(1474) = lu(1474) - lu(828) * lu(1467)
            lu(1476) = lu(1476) - lu(829) * lu(1467)
            lu(1477) = lu(1477) - lu(830) * lu(1467)
            lu(1478) = lu(1478) - lu(831) * lu(1467)
            lu(1480) = lu(1480) - lu(832) * lu(1467)
            lu(1481) = lu(1481) - lu(833) * lu(1467)
            lu(1482) = lu(1482) - lu(834) * lu(1467)
            lu(1483) = lu(1483) - lu(835) * lu(1467)
            lu(1484) = lu(1484) - lu(836) * lu(1467)
            lu(1492) = lu(1492) - lu(825) * lu(1491)
            lu(1495) = lu(1495) - lu(826) * lu(1491)
            lu(1496) = lu(1496) - lu(827) * lu(1491)
            lu(1498) = - lu(828) * lu(1491)
            lu(1500) = lu(1500) - lu(829) * lu(1491)
            lu(1501) = lu(1501) - lu(830) * lu(1491)
            lu(1502) = - lu(831) * lu(1491)
            lu(1504) = lu(1504) - lu(832) * lu(1491)
            lu(1505) = lu(1505) - lu(833) * lu(1491)
            lu(1506) = lu(1506) - lu(834) * lu(1491)
            lu(1507) = lu(1507) - lu(835) * lu(1491)
            lu(1508) = lu(1508) - lu(836) * lu(1491)
        END SUBROUTINE lu_fac17

        SUBROUTINE lu_fac18(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(839) = 1._r8 / lu(839)
            lu(840) = lu(840) * lu(839)
            lu(841) = lu(841) * lu(839)
            lu(842) = lu(842) * lu(839)
            lu(843) = lu(843) * lu(839)
            lu(844) = lu(844) * lu(839)
            lu(845) = lu(845) * lu(839)
            lu(846) = lu(846) * lu(839)
            lu(847) = lu(847) * lu(839)
            lu(848) = lu(848) * lu(839)
            lu(849) = lu(849) * lu(839)
            lu(903) = lu(903) - lu(840) * lu(902)
            lu(904) = lu(904) - lu(841) * lu(902)
            lu(905) = lu(905) - lu(842) * lu(902)
            lu(906) = lu(906) - lu(843) * lu(902)
            lu(908) = lu(908) - lu(844) * lu(902)
            lu(910) = lu(910) - lu(845) * lu(902)
            lu(911) = lu(911) - lu(846) * lu(902)
            lu(914) = lu(914) - lu(847) * lu(902)
            lu(915) = lu(915) - lu(848) * lu(902)
            lu(916) = lu(916) - lu(849) * lu(902)
            lu(942) = lu(942) - lu(840) * lu(940)
            lu(943) = lu(943) - lu(841) * lu(940)
            lu(944) = lu(944) - lu(842) * lu(940)
            lu(945) = lu(945) - lu(843) * lu(940)
            lu(947) = lu(947) - lu(844) * lu(940)
            lu(949) = lu(949) - lu(845) * lu(940)
            lu(950) = lu(950) - lu(846) * lu(940)
            lu(953) = lu(953) - lu(847) * lu(940)
            lu(956) = lu(956) - lu(848) * lu(940)
            lu(957) = lu(957) - lu(849) * lu(940)
            lu(968) = lu(968) - lu(840) * lu(966)
            lu(969) = lu(969) - lu(841) * lu(966)
            lu(970) = lu(970) - lu(842) * lu(966)
            lu(971) = lu(971) - lu(843) * lu(966)
            lu(973) = lu(973) - lu(844) * lu(966)
            lu(975) = lu(975) - lu(845) * lu(966)
            lu(976) = lu(976) - lu(846) * lu(966)
            lu(979) = lu(979) - lu(847) * lu(966)
            lu(982) = lu(982) - lu(848) * lu(966)
            lu(983) = lu(983) - lu(849) * lu(966)
            lu(1013) = lu(1013) - lu(840) * lu(1011)
            lu(1014) = lu(1014) - lu(841) * lu(1011)
            lu(1015) = lu(1015) - lu(842) * lu(1011)
            lu(1016) = lu(1016) - lu(843) * lu(1011)
            lu(1018) = lu(1018) - lu(844) * lu(1011)
            lu(1020) = lu(1020) - lu(845) * lu(1011)
            lu(1021) = lu(1021) - lu(846) * lu(1011)
            lu(1024) = lu(1024) - lu(847) * lu(1011)
            lu(1027) = lu(1027) - lu(848) * lu(1011)
            lu(1028) = lu(1028) - lu(849) * lu(1011)
            lu(1040) = lu(1040) - lu(840) * lu(1038)
            lu(1041) = lu(1041) - lu(841) * lu(1038)
            lu(1042) = lu(1042) - lu(842) * lu(1038)
            lu(1043) = lu(1043) - lu(843) * lu(1038)
            lu(1045) = lu(1045) - lu(844) * lu(1038)
            lu(1047) = lu(1047) - lu(845) * lu(1038)
            lu(1048) = lu(1048) - lu(846) * lu(1038)
            lu(1051) = lu(1051) - lu(847) * lu(1038)
            lu(1054) = lu(1054) - lu(848) * lu(1038)
            lu(1055) = lu(1055) - lu(849) * lu(1038)
            lu(1109) = lu(1109) - lu(840) * lu(1107)
            lu(1110) = lu(1110) - lu(841) * lu(1107)
            lu(1111) = lu(1111) - lu(842) * lu(1107)
            lu(1112) = lu(1112) - lu(843) * lu(1107)
            lu(1114) = lu(1114) - lu(844) * lu(1107)
            lu(1116) = lu(1116) - lu(845) * lu(1107)
            lu(1117) = lu(1117) - lu(846) * lu(1107)
            lu(1120) = lu(1120) - lu(847) * lu(1107)
            lu(1123) = lu(1123) - lu(848) * lu(1107)
            lu(1124) = lu(1124) - lu(849) * lu(1107)
            lu(1144) = lu(1144) - lu(840) * lu(1142)
            lu(1145) = lu(1145) - lu(841) * lu(1142)
            lu(1146) = lu(1146) - lu(842) * lu(1142)
            lu(1147) = lu(1147) - lu(843) * lu(1142)
            lu(1149) = lu(1149) - lu(844) * lu(1142)
            lu(1151) = lu(1151) - lu(845) * lu(1142)
            lu(1152) = lu(1152) - lu(846) * lu(1142)
            lu(1155) = lu(1155) - lu(847) * lu(1142)
            lu(1158) = lu(1158) - lu(848) * lu(1142)
            lu(1159) = lu(1159) - lu(849) * lu(1142)
            lu(1164) = lu(1164) - lu(840) * lu(1162)
            lu(1165) = lu(1165) - lu(841) * lu(1162)
            lu(1166) = lu(1166) - lu(842) * lu(1162)
            lu(1167) = lu(1167) - lu(843) * lu(1162)
            lu(1169) = lu(1169) - lu(844) * lu(1162)
            lu(1171) = lu(1171) - lu(845) * lu(1162)
            lu(1172) = lu(1172) - lu(846) * lu(1162)
            lu(1175) = lu(1175) - lu(847) * lu(1162)
            lu(1178) = lu(1178) - lu(848) * lu(1162)
            lu(1179) = - lu(849) * lu(1162)
            lu(1188) = lu(1188) - lu(840) * lu(1187)
            lu(1189) = lu(1189) - lu(841) * lu(1187)
            lu(1190) = lu(1190) - lu(842) * lu(1187)
            lu(1191) = lu(1191) - lu(843) * lu(1187)
            lu(1193) = lu(1193) - lu(844) * lu(1187)
            lu(1195) = lu(1195) - lu(845) * lu(1187)
            lu(1196) = lu(1196) - lu(846) * lu(1187)
            lu(1199) = lu(1199) - lu(847) * lu(1187)
            lu(1202) = lu(1202) - lu(848) * lu(1187)
            lu(1203) = - lu(849) * lu(1187)
            lu(1243) = lu(1243) - lu(840) * lu(1241)
            lu(1244) = lu(1244) - lu(841) * lu(1241)
            lu(1245) = lu(1245) - lu(842) * lu(1241)
            lu(1246) = lu(1246) - lu(843) * lu(1241)
            lu(1248) = lu(1248) - lu(844) * lu(1241)
            lu(1250) = lu(1250) - lu(845) * lu(1241)
            lu(1251) = lu(1251) - lu(846) * lu(1241)
            lu(1254) = lu(1254) - lu(847) * lu(1241)
            lu(1257) = lu(1257) - lu(848) * lu(1241)
            lu(1258) = lu(1258) - lu(849) * lu(1241)
            lu(1280) = lu(1280) - lu(840) * lu(1278)
            lu(1281) = lu(1281) - lu(841) * lu(1278)
            lu(1282) = lu(1282) - lu(842) * lu(1278)
            lu(1283) = lu(1283) - lu(843) * lu(1278)
            lu(1285) = lu(1285) - lu(844) * lu(1278)
            lu(1287) = lu(1287) - lu(845) * lu(1278)
            lu(1288) = lu(1288) - lu(846) * lu(1278)
            lu(1291) = lu(1291) - lu(847) * lu(1278)
            lu(1294) = lu(1294) - lu(848) * lu(1278)
            lu(1295) = lu(1295) - lu(849) * lu(1278)
            lu(1378) = lu(1378) - lu(840) * lu(1376)
            lu(1379) = lu(1379) - lu(841) * lu(1376)
            lu(1380) = lu(1380) - lu(842) * lu(1376)
            lu(1381) = lu(1381) - lu(843) * lu(1376)
            lu(1383) = lu(1383) - lu(844) * lu(1376)
            lu(1385) = lu(1385) - lu(845) * lu(1376)
            lu(1386) = lu(1386) - lu(846) * lu(1376)
            lu(1389) = lu(1389) - lu(847) * lu(1376)
            lu(1392) = lu(1392) - lu(848) * lu(1376)
            lu(1393) = lu(1393) - lu(849) * lu(1376)
            lu(1422) = lu(1422) - lu(840) * lu(1420)
            lu(1423) = lu(1423) - lu(841) * lu(1420)
            lu(1424) = - lu(842) * lu(1420)
            lu(1425) = lu(1425) - lu(843) * lu(1420)
            lu(1427) = lu(1427) - lu(844) * lu(1420)
            lu(1429) = lu(1429) - lu(845) * lu(1420)
            lu(1430) = lu(1430) - lu(846) * lu(1420)
            lu(1433) = lu(1433) - lu(847) * lu(1420)
            lu(1436) = lu(1436) - lu(848) * lu(1420)
            lu(1437) = lu(1437) - lu(849) * lu(1420)
            lu(1444) = - lu(840) * lu(1442)
            lu(1445) = lu(1445) - lu(841) * lu(1442)
            lu(1446) = lu(1446) - lu(842) * lu(1442)
            lu(1447) = - lu(843) * lu(1442)
            lu(1449) = - lu(844) * lu(1442)
            lu(1451) = lu(1451) - lu(845) * lu(1442)
            lu(1452) = lu(1452) - lu(846) * lu(1442)
            lu(1455) = lu(1455) - lu(847) * lu(1442)
            lu(1458) = lu(1458) - lu(848) * lu(1442)
            lu(1459) = - lu(849) * lu(1442)
            lu(1470) = lu(1470) - lu(840) * lu(1468)
            lu(1471) = lu(1471) - lu(841) * lu(1468)
            lu(1472) = lu(1472) - lu(842) * lu(1468)
            lu(1473) = lu(1473) - lu(843) * lu(1468)
            lu(1475) = lu(1475) - lu(844) * lu(1468)
            lu(1477) = lu(1477) - lu(845) * lu(1468)
            lu(1478) = lu(1478) - lu(846) * lu(1468)
            lu(1481) = lu(1481) - lu(847) * lu(1468)
            lu(1484) = lu(1484) - lu(848) * lu(1468)
            lu(1485) = - lu(849) * lu(1468)
            lu(1494) = - lu(840) * lu(1492)
            lu(1495) = lu(1495) - lu(841) * lu(1492)
            lu(1496) = lu(1496) - lu(842) * lu(1492)
            lu(1497) = - lu(843) * lu(1492)
            lu(1499) = lu(1499) - lu(844) * lu(1492)
            lu(1501) = lu(1501) - lu(845) * lu(1492)
            lu(1502) = lu(1502) - lu(846) * lu(1492)
            lu(1505) = lu(1505) - lu(847) * lu(1492)
            lu(1508) = lu(1508) - lu(848) * lu(1492)
            lu(1509) = lu(1509) - lu(849) * lu(1492)
            lu(872) = 1._r8 / lu(872)
            lu(873) = lu(873) * lu(872)
            lu(874) = lu(874) * lu(872)
            lu(875) = lu(875) * lu(872)
            lu(876) = lu(876) * lu(872)
            lu(877) = lu(877) * lu(872)
            lu(878) = lu(878) * lu(872)
            lu(879) = lu(879) * lu(872)
            lu(880) = lu(880) * lu(872)
            lu(881) = lu(881) * lu(872)
            lu(882) = lu(882) * lu(872)
            lu(883) = lu(883) * lu(872)
            lu(884) = lu(884) * lu(872)
            lu(885) = lu(885) * lu(872)
            lu(942) = lu(942) - lu(873) * lu(941)
            lu(945) = lu(945) - lu(874) * lu(941)
            lu(946) = lu(946) - lu(875) * lu(941)
            lu(947) = lu(947) - lu(876) * lu(941)
            lu(948) = lu(948) - lu(877) * lu(941)
            lu(949) = lu(949) - lu(878) * lu(941)
            lu(951) = lu(951) - lu(879) * lu(941)
            lu(952) = lu(952) - lu(880) * lu(941)
            lu(953) = lu(953) - lu(881) * lu(941)
            lu(954) = lu(954) - lu(882) * lu(941)
            lu(955) = lu(955) - lu(883) * lu(941)
            lu(956) = lu(956) - lu(884) * lu(941)
            lu(957) = lu(957) - lu(885) * lu(941)
            lu(968) = lu(968) - lu(873) * lu(967)
            lu(971) = lu(971) - lu(874) * lu(967)
            lu(972) = lu(972) - lu(875) * lu(967)
            lu(973) = lu(973) - lu(876) * lu(967)
            lu(974) = lu(974) - lu(877) * lu(967)
            lu(975) = lu(975) - lu(878) * lu(967)
            lu(977) = lu(977) - lu(879) * lu(967)
            lu(978) = lu(978) - lu(880) * lu(967)
            lu(979) = lu(979) - lu(881) * lu(967)
            lu(980) = lu(980) - lu(882) * lu(967)
            lu(981) = lu(981) - lu(883) * lu(967)
            lu(982) = lu(982) - lu(884) * lu(967)
            lu(983) = lu(983) - lu(885) * lu(967)
            lu(1013) = lu(1013) - lu(873) * lu(1012)
            lu(1016) = lu(1016) - lu(874) * lu(1012)
            lu(1017) = lu(1017) - lu(875) * lu(1012)
            lu(1018) = lu(1018) - lu(876) * lu(1012)
            lu(1019) = lu(1019) - lu(877) * lu(1012)
            lu(1020) = lu(1020) - lu(878) * lu(1012)
            lu(1022) = lu(1022) - lu(879) * lu(1012)
            lu(1023) = lu(1023) - lu(880) * lu(1012)
            lu(1024) = lu(1024) - lu(881) * lu(1012)
            lu(1025) = lu(1025) - lu(882) * lu(1012)
            lu(1026) = lu(1026) - lu(883) * lu(1012)
            lu(1027) = lu(1027) - lu(884) * lu(1012)
            lu(1028) = lu(1028) - lu(885) * lu(1012)
            lu(1040) = lu(1040) - lu(873) * lu(1039)
            lu(1043) = lu(1043) - lu(874) * lu(1039)
            lu(1044) = lu(1044) - lu(875) * lu(1039)
            lu(1045) = lu(1045) - lu(876) * lu(1039)
            lu(1046) = lu(1046) - lu(877) * lu(1039)
            lu(1047) = lu(1047) - lu(878) * lu(1039)
            lu(1049) = lu(1049) - lu(879) * lu(1039)
            lu(1050) = lu(1050) - lu(880) * lu(1039)
            lu(1051) = lu(1051) - lu(881) * lu(1039)
            lu(1052) = lu(1052) - lu(882) * lu(1039)
            lu(1053) = lu(1053) - lu(883) * lu(1039)
            lu(1054) = lu(1054) - lu(884) * lu(1039)
            lu(1055) = lu(1055) - lu(885) * lu(1039)
            lu(1109) = lu(1109) - lu(873) * lu(1108)
            lu(1112) = lu(1112) - lu(874) * lu(1108)
            lu(1113) = lu(1113) - lu(875) * lu(1108)
            lu(1114) = lu(1114) - lu(876) * lu(1108)
            lu(1115) = lu(1115) - lu(877) * lu(1108)
            lu(1116) = lu(1116) - lu(878) * lu(1108)
            lu(1118) = lu(1118) - lu(879) * lu(1108)
            lu(1119) = lu(1119) - lu(880) * lu(1108)
            lu(1120) = lu(1120) - lu(881) * lu(1108)
            lu(1121) = lu(1121) - lu(882) * lu(1108)
            lu(1122) = lu(1122) - lu(883) * lu(1108)
            lu(1123) = lu(1123) - lu(884) * lu(1108)
            lu(1124) = lu(1124) - lu(885) * lu(1108)
            lu(1144) = lu(1144) - lu(873) * lu(1143)
            lu(1147) = lu(1147) - lu(874) * lu(1143)
            lu(1148) = lu(1148) - lu(875) * lu(1143)
            lu(1149) = lu(1149) - lu(876) * lu(1143)
            lu(1150) = lu(1150) - lu(877) * lu(1143)
            lu(1151) = lu(1151) - lu(878) * lu(1143)
            lu(1153) = lu(1153) - lu(879) * lu(1143)
            lu(1154) = lu(1154) - lu(880) * lu(1143)
            lu(1155) = lu(1155) - lu(881) * lu(1143)
            lu(1156) = lu(1156) - lu(882) * lu(1143)
            lu(1157) = lu(1157) - lu(883) * lu(1143)
            lu(1158) = lu(1158) - lu(884) * lu(1143)
            lu(1159) = lu(1159) - lu(885) * lu(1143)
            lu(1164) = lu(1164) - lu(873) * lu(1163)
            lu(1167) = lu(1167) - lu(874) * lu(1163)
            lu(1168) = lu(1168) - lu(875) * lu(1163)
            lu(1169) = lu(1169) - lu(876) * lu(1163)
            lu(1170) = lu(1170) - lu(877) * lu(1163)
            lu(1171) = lu(1171) - lu(878) * lu(1163)
            lu(1173) = - lu(879) * lu(1163)
            lu(1174) = lu(1174) - lu(880) * lu(1163)
            lu(1175) = lu(1175) - lu(881) * lu(1163)
            lu(1176) = lu(1176) - lu(882) * lu(1163)
            lu(1177) = lu(1177) - lu(883) * lu(1163)
            lu(1178) = lu(1178) - lu(884) * lu(1163)
            lu(1179) = lu(1179) - lu(885) * lu(1163)
            lu(1243) = lu(1243) - lu(873) * lu(1242)
            lu(1246) = lu(1246) - lu(874) * lu(1242)
            lu(1247) = lu(1247) - lu(875) * lu(1242)
            lu(1248) = lu(1248) - lu(876) * lu(1242)
            lu(1249) = lu(1249) - lu(877) * lu(1242)
            lu(1250) = lu(1250) - lu(878) * lu(1242)
            lu(1252) = lu(1252) - lu(879) * lu(1242)
            lu(1253) = lu(1253) - lu(880) * lu(1242)
            lu(1254) = lu(1254) - lu(881) * lu(1242)
            lu(1255) = lu(1255) - lu(882) * lu(1242)
            lu(1256) = lu(1256) - lu(883) * lu(1242)
            lu(1257) = lu(1257) - lu(884) * lu(1242)
            lu(1258) = lu(1258) - lu(885) * lu(1242)
            lu(1280) = lu(1280) - lu(873) * lu(1279)
            lu(1283) = lu(1283) - lu(874) * lu(1279)
            lu(1284) = lu(1284) - lu(875) * lu(1279)
            lu(1285) = lu(1285) - lu(876) * lu(1279)
            lu(1286) = lu(1286) - lu(877) * lu(1279)
            lu(1287) = lu(1287) - lu(878) * lu(1279)
            lu(1289) = lu(1289) - lu(879) * lu(1279)
            lu(1290) = lu(1290) - lu(880) * lu(1279)
            lu(1291) = lu(1291) - lu(881) * lu(1279)
            lu(1292) = lu(1292) - lu(882) * lu(1279)
            lu(1293) = lu(1293) - lu(883) * lu(1279)
            lu(1294) = lu(1294) - lu(884) * lu(1279)
            lu(1295) = lu(1295) - lu(885) * lu(1279)
            lu(1378) = lu(1378) - lu(873) * lu(1377)
            lu(1381) = lu(1381) - lu(874) * lu(1377)
            lu(1382) = lu(1382) - lu(875) * lu(1377)
            lu(1383) = lu(1383) - lu(876) * lu(1377)
            lu(1384) = lu(1384) - lu(877) * lu(1377)
            lu(1385) = lu(1385) - lu(878) * lu(1377)
            lu(1387) = lu(1387) - lu(879) * lu(1377)
            lu(1388) = lu(1388) - lu(880) * lu(1377)
            lu(1389) = lu(1389) - lu(881) * lu(1377)
            lu(1390) = lu(1390) - lu(882) * lu(1377)
            lu(1391) = lu(1391) - lu(883) * lu(1377)
            lu(1392) = lu(1392) - lu(884) * lu(1377)
            lu(1393) = lu(1393) - lu(885) * lu(1377)
            lu(1422) = lu(1422) - lu(873) * lu(1421)
            lu(1425) = lu(1425) - lu(874) * lu(1421)
            lu(1426) = lu(1426) - lu(875) * lu(1421)
            lu(1427) = lu(1427) - lu(876) * lu(1421)
            lu(1428) = lu(1428) - lu(877) * lu(1421)
            lu(1429) = lu(1429) - lu(878) * lu(1421)
            lu(1431) = lu(1431) - lu(879) * lu(1421)
            lu(1432) = lu(1432) - lu(880) * lu(1421)
            lu(1433) = lu(1433) - lu(881) * lu(1421)
            lu(1434) = lu(1434) - lu(882) * lu(1421)
            lu(1435) = lu(1435) - lu(883) * lu(1421)
            lu(1436) = lu(1436) - lu(884) * lu(1421)
            lu(1437) = lu(1437) - lu(885) * lu(1421)
            lu(1444) = lu(1444) - lu(873) * lu(1443)
            lu(1447) = lu(1447) - lu(874) * lu(1443)
            lu(1448) = lu(1448) - lu(875) * lu(1443)
            lu(1449) = lu(1449) - lu(876) * lu(1443)
            lu(1450) = lu(1450) - lu(877) * lu(1443)
            lu(1451) = lu(1451) - lu(878) * lu(1443)
            lu(1453) = - lu(879) * lu(1443)
            lu(1454) = lu(1454) - lu(880) * lu(1443)
            lu(1455) = lu(1455) - lu(881) * lu(1443)
            lu(1456) = lu(1456) - lu(882) * lu(1443)
            lu(1457) = lu(1457) - lu(883) * lu(1443)
            lu(1458) = lu(1458) - lu(884) * lu(1443)
            lu(1459) = lu(1459) - lu(885) * lu(1443)
            lu(1470) = lu(1470) - lu(873) * lu(1469)
            lu(1473) = lu(1473) - lu(874) * lu(1469)
            lu(1474) = lu(1474) - lu(875) * lu(1469)
            lu(1475) = lu(1475) - lu(876) * lu(1469)
            lu(1476) = lu(1476) - lu(877) * lu(1469)
            lu(1477) = lu(1477) - lu(878) * lu(1469)
            lu(1479) = lu(1479) - lu(879) * lu(1469)
            lu(1480) = lu(1480) - lu(880) * lu(1469)
            lu(1481) = lu(1481) - lu(881) * lu(1469)
            lu(1482) = lu(1482) - lu(882) * lu(1469)
            lu(1483) = lu(1483) - lu(883) * lu(1469)
            lu(1484) = lu(1484) - lu(884) * lu(1469)
            lu(1485) = lu(1485) - lu(885) * lu(1469)
            lu(1494) = lu(1494) - lu(873) * lu(1493)
            lu(1497) = lu(1497) - lu(874) * lu(1493)
            lu(1498) = lu(1498) - lu(875) * lu(1493)
            lu(1499) = lu(1499) - lu(876) * lu(1493)
            lu(1500) = lu(1500) - lu(877) * lu(1493)
            lu(1501) = lu(1501) - lu(878) * lu(1493)
            lu(1503) = lu(1503) - lu(879) * lu(1493)
            lu(1504) = lu(1504) - lu(880) * lu(1493)
            lu(1505) = lu(1505) - lu(881) * lu(1493)
            lu(1506) = lu(1506) - lu(882) * lu(1493)
            lu(1507) = lu(1507) - lu(883) * lu(1493)
            lu(1508) = lu(1508) - lu(884) * lu(1493)
            lu(1509) = lu(1509) - lu(885) * lu(1493)
            lu(903) = 1._r8 / lu(903)
            lu(904) = lu(904) * lu(903)
            lu(905) = lu(905) * lu(903)
            lu(906) = lu(906) * lu(903)
            lu(907) = lu(907) * lu(903)
            lu(908) = lu(908) * lu(903)
            lu(909) = lu(909) * lu(903)
            lu(910) = lu(910) * lu(903)
            lu(911) = lu(911) * lu(903)
            lu(912) = lu(912) * lu(903)
            lu(913) = lu(913) * lu(903)
            lu(914) = lu(914) * lu(903)
            lu(915) = lu(915) * lu(903)
            lu(916) = lu(916) * lu(903)
            lu(943) = lu(943) - lu(904) * lu(942)
            lu(944) = lu(944) - lu(905) * lu(942)
            lu(945) = lu(945) - lu(906) * lu(942)
            lu(946) = lu(946) - lu(907) * lu(942)
            lu(947) = lu(947) - lu(908) * lu(942)
            lu(948) = lu(948) - lu(909) * lu(942)
            lu(949) = lu(949) - lu(910) * lu(942)
            lu(950) = lu(950) - lu(911) * lu(942)
            lu(951) = lu(951) - lu(912) * lu(942)
            lu(952) = lu(952) - lu(913) * lu(942)
            lu(953) = lu(953) - lu(914) * lu(942)
            lu(956) = lu(956) - lu(915) * lu(942)
            lu(957) = lu(957) - lu(916) * lu(942)
            lu(969) = lu(969) - lu(904) * lu(968)
            lu(970) = lu(970) - lu(905) * lu(968)
            lu(971) = lu(971) - lu(906) * lu(968)
            lu(972) = lu(972) - lu(907) * lu(968)
            lu(973) = lu(973) - lu(908) * lu(968)
            lu(974) = lu(974) - lu(909) * lu(968)
            lu(975) = lu(975) - lu(910) * lu(968)
            lu(976) = lu(976) - lu(911) * lu(968)
            lu(977) = lu(977) - lu(912) * lu(968)
            lu(978) = lu(978) - lu(913) * lu(968)
            lu(979) = lu(979) - lu(914) * lu(968)
            lu(982) = lu(982) - lu(915) * lu(968)
            lu(983) = lu(983) - lu(916) * lu(968)
            lu(1014) = lu(1014) - lu(904) * lu(1013)
            lu(1015) = lu(1015) - lu(905) * lu(1013)
            lu(1016) = lu(1016) - lu(906) * lu(1013)
            lu(1017) = lu(1017) - lu(907) * lu(1013)
            lu(1018) = lu(1018) - lu(908) * lu(1013)
            lu(1019) = lu(1019) - lu(909) * lu(1013)
            lu(1020) = lu(1020) - lu(910) * lu(1013)
            lu(1021) = lu(1021) - lu(911) * lu(1013)
            lu(1022) = lu(1022) - lu(912) * lu(1013)
            lu(1023) = lu(1023) - lu(913) * lu(1013)
            lu(1024) = lu(1024) - lu(914) * lu(1013)
            lu(1027) = lu(1027) - lu(915) * lu(1013)
            lu(1028) = lu(1028) - lu(916) * lu(1013)
            lu(1041) = lu(1041) - lu(904) * lu(1040)
            lu(1042) = lu(1042) - lu(905) * lu(1040)
            lu(1043) = lu(1043) - lu(906) * lu(1040)
            lu(1044) = lu(1044) - lu(907) * lu(1040)
            lu(1045) = lu(1045) - lu(908) * lu(1040)
            lu(1046) = lu(1046) - lu(909) * lu(1040)
            lu(1047) = lu(1047) - lu(910) * lu(1040)
            lu(1048) = lu(1048) - lu(911) * lu(1040)
            lu(1049) = lu(1049) - lu(912) * lu(1040)
            lu(1050) = lu(1050) - lu(913) * lu(1040)
            lu(1051) = lu(1051) - lu(914) * lu(1040)
            lu(1054) = lu(1054) - lu(915) * lu(1040)
            lu(1055) = lu(1055) - lu(916) * lu(1040)
            lu(1110) = lu(1110) - lu(904) * lu(1109)
            lu(1111) = lu(1111) - lu(905) * lu(1109)
            lu(1112) = lu(1112) - lu(906) * lu(1109)
            lu(1113) = lu(1113) - lu(907) * lu(1109)
            lu(1114) = lu(1114) - lu(908) * lu(1109)
            lu(1115) = lu(1115) - lu(909) * lu(1109)
            lu(1116) = lu(1116) - lu(910) * lu(1109)
            lu(1117) = lu(1117) - lu(911) * lu(1109)
            lu(1118) = lu(1118) - lu(912) * lu(1109)
            lu(1119) = lu(1119) - lu(913) * lu(1109)
            lu(1120) = lu(1120) - lu(914) * lu(1109)
            lu(1123) = lu(1123) - lu(915) * lu(1109)
            lu(1124) = lu(1124) - lu(916) * lu(1109)
            lu(1145) = lu(1145) - lu(904) * lu(1144)
            lu(1146) = lu(1146) - lu(905) * lu(1144)
            lu(1147) = lu(1147) - lu(906) * lu(1144)
            lu(1148) = lu(1148) - lu(907) * lu(1144)
            lu(1149) = lu(1149) - lu(908) * lu(1144)
            lu(1150) = lu(1150) - lu(909) * lu(1144)
            lu(1151) = lu(1151) - lu(910) * lu(1144)
            lu(1152) = lu(1152) - lu(911) * lu(1144)
            lu(1153) = lu(1153) - lu(912) * lu(1144)
            lu(1154) = lu(1154) - lu(913) * lu(1144)
            lu(1155) = lu(1155) - lu(914) * lu(1144)
            lu(1158) = lu(1158) - lu(915) * lu(1144)
            lu(1159) = lu(1159) - lu(916) * lu(1144)
            lu(1165) = lu(1165) - lu(904) * lu(1164)
            lu(1166) = lu(1166) - lu(905) * lu(1164)
            lu(1167) = lu(1167) - lu(906) * lu(1164)
            lu(1168) = lu(1168) - lu(907) * lu(1164)
            lu(1169) = lu(1169) - lu(908) * lu(1164)
            lu(1170) = lu(1170) - lu(909) * lu(1164)
            lu(1171) = lu(1171) - lu(910) * lu(1164)
            lu(1172) = lu(1172) - lu(911) * lu(1164)
            lu(1173) = lu(1173) - lu(912) * lu(1164)
            lu(1174) = lu(1174) - lu(913) * lu(1164)
            lu(1175) = lu(1175) - lu(914) * lu(1164)
            lu(1178) = lu(1178) - lu(915) * lu(1164)
            lu(1179) = lu(1179) - lu(916) * lu(1164)
            lu(1189) = lu(1189) - lu(904) * lu(1188)
            lu(1190) = lu(1190) - lu(905) * lu(1188)
            lu(1191) = lu(1191) - lu(906) * lu(1188)
            lu(1192) = lu(1192) - lu(907) * lu(1188)
            lu(1193) = lu(1193) - lu(908) * lu(1188)
            lu(1194) = lu(1194) - lu(909) * lu(1188)
            lu(1195) = lu(1195) - lu(910) * lu(1188)
            lu(1196) = lu(1196) - lu(911) * lu(1188)
            lu(1197) = lu(1197) - lu(912) * lu(1188)
            lu(1198) = lu(1198) - lu(913) * lu(1188)
            lu(1199) = lu(1199) - lu(914) * lu(1188)
            lu(1202) = lu(1202) - lu(915) * lu(1188)
            lu(1203) = lu(1203) - lu(916) * lu(1188)
            lu(1244) = lu(1244) - lu(904) * lu(1243)
            lu(1245) = lu(1245) - lu(905) * lu(1243)
            lu(1246) = lu(1246) - lu(906) * lu(1243)
            lu(1247) = lu(1247) - lu(907) * lu(1243)
            lu(1248) = lu(1248) - lu(908) * lu(1243)
            lu(1249) = lu(1249) - lu(909) * lu(1243)
            lu(1250) = lu(1250) - lu(910) * lu(1243)
            lu(1251) = lu(1251) - lu(911) * lu(1243)
            lu(1252) = lu(1252) - lu(912) * lu(1243)
            lu(1253) = lu(1253) - lu(913) * lu(1243)
            lu(1254) = lu(1254) - lu(914) * lu(1243)
            lu(1257) = lu(1257) - lu(915) * lu(1243)
            lu(1258) = lu(1258) - lu(916) * lu(1243)
            lu(1281) = lu(1281) - lu(904) * lu(1280)
            lu(1282) = lu(1282) - lu(905) * lu(1280)
            lu(1283) = lu(1283) - lu(906) * lu(1280)
            lu(1284) = lu(1284) - lu(907) * lu(1280)
            lu(1285) = lu(1285) - lu(908) * lu(1280)
            lu(1286) = lu(1286) - lu(909) * lu(1280)
            lu(1287) = lu(1287) - lu(910) * lu(1280)
            lu(1288) = lu(1288) - lu(911) * lu(1280)
            lu(1289) = lu(1289) - lu(912) * lu(1280)
            lu(1290) = lu(1290) - lu(913) * lu(1280)
            lu(1291) = lu(1291) - lu(914) * lu(1280)
            lu(1294) = lu(1294) - lu(915) * lu(1280)
            lu(1295) = lu(1295) - lu(916) * lu(1280)
            lu(1379) = lu(1379) - lu(904) * lu(1378)
            lu(1380) = lu(1380) - lu(905) * lu(1378)
            lu(1381) = lu(1381) - lu(906) * lu(1378)
            lu(1382) = lu(1382) - lu(907) * lu(1378)
            lu(1383) = lu(1383) - lu(908) * lu(1378)
            lu(1384) = lu(1384) - lu(909) * lu(1378)
            lu(1385) = lu(1385) - lu(910) * lu(1378)
            lu(1386) = lu(1386) - lu(911) * lu(1378)
            lu(1387) = lu(1387) - lu(912) * lu(1378)
            lu(1388) = lu(1388) - lu(913) * lu(1378)
            lu(1389) = lu(1389) - lu(914) * lu(1378)
            lu(1392) = lu(1392) - lu(915) * lu(1378)
            lu(1393) = lu(1393) - lu(916) * lu(1378)
            lu(1423) = lu(1423) - lu(904) * lu(1422)
            lu(1424) = lu(1424) - lu(905) * lu(1422)
            lu(1425) = lu(1425) - lu(906) * lu(1422)
            lu(1426) = lu(1426) - lu(907) * lu(1422)
            lu(1427) = lu(1427) - lu(908) * lu(1422)
            lu(1428) = lu(1428) - lu(909) * lu(1422)
            lu(1429) = lu(1429) - lu(910) * lu(1422)
            lu(1430) = lu(1430) - lu(911) * lu(1422)
            lu(1431) = lu(1431) - lu(912) * lu(1422)
            lu(1432) = lu(1432) - lu(913) * lu(1422)
            lu(1433) = lu(1433) - lu(914) * lu(1422)
            lu(1436) = lu(1436) - lu(915) * lu(1422)
            lu(1437) = lu(1437) - lu(916) * lu(1422)
            lu(1445) = lu(1445) - lu(904) * lu(1444)
            lu(1446) = lu(1446) - lu(905) * lu(1444)
            lu(1447) = lu(1447) - lu(906) * lu(1444)
            lu(1448) = lu(1448) - lu(907) * lu(1444)
            lu(1449) = lu(1449) - lu(908) * lu(1444)
            lu(1450) = lu(1450) - lu(909) * lu(1444)
            lu(1451) = lu(1451) - lu(910) * lu(1444)
            lu(1452) = lu(1452) - lu(911) * lu(1444)
            lu(1453) = lu(1453) - lu(912) * lu(1444)
            lu(1454) = lu(1454) - lu(913) * lu(1444)
            lu(1455) = lu(1455) - lu(914) * lu(1444)
            lu(1458) = lu(1458) - lu(915) * lu(1444)
            lu(1459) = lu(1459) - lu(916) * lu(1444)
            lu(1471) = lu(1471) - lu(904) * lu(1470)
            lu(1472) = lu(1472) - lu(905) * lu(1470)
            lu(1473) = lu(1473) - lu(906) * lu(1470)
            lu(1474) = lu(1474) - lu(907) * lu(1470)
            lu(1475) = lu(1475) - lu(908) * lu(1470)
            lu(1476) = lu(1476) - lu(909) * lu(1470)
            lu(1477) = lu(1477) - lu(910) * lu(1470)
            lu(1478) = lu(1478) - lu(911) * lu(1470)
            lu(1479) = lu(1479) - lu(912) * lu(1470)
            lu(1480) = lu(1480) - lu(913) * lu(1470)
            lu(1481) = lu(1481) - lu(914) * lu(1470)
            lu(1484) = lu(1484) - lu(915) * lu(1470)
            lu(1485) = lu(1485) - lu(916) * lu(1470)
            lu(1495) = lu(1495) - lu(904) * lu(1494)
            lu(1496) = lu(1496) - lu(905) * lu(1494)
            lu(1497) = lu(1497) - lu(906) * lu(1494)
            lu(1498) = lu(1498) - lu(907) * lu(1494)
            lu(1499) = lu(1499) - lu(908) * lu(1494)
            lu(1500) = lu(1500) - lu(909) * lu(1494)
            lu(1501) = lu(1501) - lu(910) * lu(1494)
            lu(1502) = lu(1502) - lu(911) * lu(1494)
            lu(1503) = lu(1503) - lu(912) * lu(1494)
            lu(1504) = lu(1504) - lu(913) * lu(1494)
            lu(1505) = lu(1505) - lu(914) * lu(1494)
            lu(1508) = lu(1508) - lu(915) * lu(1494)
            lu(1509) = lu(1509) - lu(916) * lu(1494)
        END SUBROUTINE lu_fac18

        SUBROUTINE lu_fac19(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(943) = 1._r8 / lu(943)
            lu(944) = lu(944) * lu(943)
            lu(945) = lu(945) * lu(943)
            lu(946) = lu(946) * lu(943)
            lu(947) = lu(947) * lu(943)
            lu(948) = lu(948) * lu(943)
            lu(949) = lu(949) * lu(943)
            lu(950) = lu(950) * lu(943)
            lu(951) = lu(951) * lu(943)
            lu(952) = lu(952) * lu(943)
            lu(953) = lu(953) * lu(943)
            lu(954) = lu(954) * lu(943)
            lu(955) = lu(955) * lu(943)
            lu(956) = lu(956) * lu(943)
            lu(957) = lu(957) * lu(943)
            lu(970) = lu(970) - lu(944) * lu(969)
            lu(971) = lu(971) - lu(945) * lu(969)
            lu(972) = lu(972) - lu(946) * lu(969)
            lu(973) = lu(973) - lu(947) * lu(969)
            lu(974) = lu(974) - lu(948) * lu(969)
            lu(975) = lu(975) - lu(949) * lu(969)
            lu(976) = lu(976) - lu(950) * lu(969)
            lu(977) = lu(977) - lu(951) * lu(969)
            lu(978) = lu(978) - lu(952) * lu(969)
            lu(979) = lu(979) - lu(953) * lu(969)
            lu(980) = lu(980) - lu(954) * lu(969)
            lu(981) = lu(981) - lu(955) * lu(969)
            lu(982) = lu(982) - lu(956) * lu(969)
            lu(983) = lu(983) - lu(957) * lu(969)
            lu(1015) = lu(1015) - lu(944) * lu(1014)
            lu(1016) = lu(1016) - lu(945) * lu(1014)
            lu(1017) = lu(1017) - lu(946) * lu(1014)
            lu(1018) = lu(1018) - lu(947) * lu(1014)
            lu(1019) = lu(1019) - lu(948) * lu(1014)
            lu(1020) = lu(1020) - lu(949) * lu(1014)
            lu(1021) = lu(1021) - lu(950) * lu(1014)
            lu(1022) = lu(1022) - lu(951) * lu(1014)
            lu(1023) = lu(1023) - lu(952) * lu(1014)
            lu(1024) = lu(1024) - lu(953) * lu(1014)
            lu(1025) = lu(1025) - lu(954) * lu(1014)
            lu(1026) = lu(1026) - lu(955) * lu(1014)
            lu(1027) = lu(1027) - lu(956) * lu(1014)
            lu(1028) = lu(1028) - lu(957) * lu(1014)
            lu(1042) = lu(1042) - lu(944) * lu(1041)
            lu(1043) = lu(1043) - lu(945) * lu(1041)
            lu(1044) = lu(1044) - lu(946) * lu(1041)
            lu(1045) = lu(1045) - lu(947) * lu(1041)
            lu(1046) = lu(1046) - lu(948) * lu(1041)
            lu(1047) = lu(1047) - lu(949) * lu(1041)
            lu(1048) = lu(1048) - lu(950) * lu(1041)
            lu(1049) = lu(1049) - lu(951) * lu(1041)
            lu(1050) = lu(1050) - lu(952) * lu(1041)
            lu(1051) = lu(1051) - lu(953) * lu(1041)
            lu(1052) = lu(1052) - lu(954) * lu(1041)
            lu(1053) = lu(1053) - lu(955) * lu(1041)
            lu(1054) = lu(1054) - lu(956) * lu(1041)
            lu(1055) = lu(1055) - lu(957) * lu(1041)
            lu(1111) = lu(1111) - lu(944) * lu(1110)
            lu(1112) = lu(1112) - lu(945) * lu(1110)
            lu(1113) = lu(1113) - lu(946) * lu(1110)
            lu(1114) = lu(1114) - lu(947) * lu(1110)
            lu(1115) = lu(1115) - lu(948) * lu(1110)
            lu(1116) = lu(1116) - lu(949) * lu(1110)
            lu(1117) = lu(1117) - lu(950) * lu(1110)
            lu(1118) = lu(1118) - lu(951) * lu(1110)
            lu(1119) = lu(1119) - lu(952) * lu(1110)
            lu(1120) = lu(1120) - lu(953) * lu(1110)
            lu(1121) = lu(1121) - lu(954) * lu(1110)
            lu(1122) = lu(1122) - lu(955) * lu(1110)
            lu(1123) = lu(1123) - lu(956) * lu(1110)
            lu(1124) = lu(1124) - lu(957) * lu(1110)
            lu(1146) = lu(1146) - lu(944) * lu(1145)
            lu(1147) = lu(1147) - lu(945) * lu(1145)
            lu(1148) = lu(1148) - lu(946) * lu(1145)
            lu(1149) = lu(1149) - lu(947) * lu(1145)
            lu(1150) = lu(1150) - lu(948) * lu(1145)
            lu(1151) = lu(1151) - lu(949) * lu(1145)
            lu(1152) = lu(1152) - lu(950) * lu(1145)
            lu(1153) = lu(1153) - lu(951) * lu(1145)
            lu(1154) = lu(1154) - lu(952) * lu(1145)
            lu(1155) = lu(1155) - lu(953) * lu(1145)
            lu(1156) = lu(1156) - lu(954) * lu(1145)
            lu(1157) = lu(1157) - lu(955) * lu(1145)
            lu(1158) = lu(1158) - lu(956) * lu(1145)
            lu(1159) = lu(1159) - lu(957) * lu(1145)
            lu(1166) = lu(1166) - lu(944) * lu(1165)
            lu(1167) = lu(1167) - lu(945) * lu(1165)
            lu(1168) = lu(1168) - lu(946) * lu(1165)
            lu(1169) = lu(1169) - lu(947) * lu(1165)
            lu(1170) = lu(1170) - lu(948) * lu(1165)
            lu(1171) = lu(1171) - lu(949) * lu(1165)
            lu(1172) = lu(1172) - lu(950) * lu(1165)
            lu(1173) = lu(1173) - lu(951) * lu(1165)
            lu(1174) = lu(1174) - lu(952) * lu(1165)
            lu(1175) = lu(1175) - lu(953) * lu(1165)
            lu(1176) = lu(1176) - lu(954) * lu(1165)
            lu(1177) = lu(1177) - lu(955) * lu(1165)
            lu(1178) = lu(1178) - lu(956) * lu(1165)
            lu(1179) = lu(1179) - lu(957) * lu(1165)
            lu(1190) = lu(1190) - lu(944) * lu(1189)
            lu(1191) = lu(1191) - lu(945) * lu(1189)
            lu(1192) = lu(1192) - lu(946) * lu(1189)
            lu(1193) = lu(1193) - lu(947) * lu(1189)
            lu(1194) = lu(1194) - lu(948) * lu(1189)
            lu(1195) = lu(1195) - lu(949) * lu(1189)
            lu(1196) = lu(1196) - lu(950) * lu(1189)
            lu(1197) = lu(1197) - lu(951) * lu(1189)
            lu(1198) = lu(1198) - lu(952) * lu(1189)
            lu(1199) = lu(1199) - lu(953) * lu(1189)
            lu(1200) = lu(1200) - lu(954) * lu(1189)
            lu(1201) = lu(1201) - lu(955) * lu(1189)
            lu(1202) = lu(1202) - lu(956) * lu(1189)
            lu(1203) = lu(1203) - lu(957) * lu(1189)
            lu(1245) = lu(1245) - lu(944) * lu(1244)
            lu(1246) = lu(1246) - lu(945) * lu(1244)
            lu(1247) = lu(1247) - lu(946) * lu(1244)
            lu(1248) = lu(1248) - lu(947) * lu(1244)
            lu(1249) = lu(1249) - lu(948) * lu(1244)
            lu(1250) = lu(1250) - lu(949) * lu(1244)
            lu(1251) = lu(1251) - lu(950) * lu(1244)
            lu(1252) = lu(1252) - lu(951) * lu(1244)
            lu(1253) = lu(1253) - lu(952) * lu(1244)
            lu(1254) = lu(1254) - lu(953) * lu(1244)
            lu(1255) = lu(1255) - lu(954) * lu(1244)
            lu(1256) = lu(1256) - lu(955) * lu(1244)
            lu(1257) = lu(1257) - lu(956) * lu(1244)
            lu(1258) = lu(1258) - lu(957) * lu(1244)
            lu(1282) = lu(1282) - lu(944) * lu(1281)
            lu(1283) = lu(1283) - lu(945) * lu(1281)
            lu(1284) = lu(1284) - lu(946) * lu(1281)
            lu(1285) = lu(1285) - lu(947) * lu(1281)
            lu(1286) = lu(1286) - lu(948) * lu(1281)
            lu(1287) = lu(1287) - lu(949) * lu(1281)
            lu(1288) = lu(1288) - lu(950) * lu(1281)
            lu(1289) = lu(1289) - lu(951) * lu(1281)
            lu(1290) = lu(1290) - lu(952) * lu(1281)
            lu(1291) = lu(1291) - lu(953) * lu(1281)
            lu(1292) = lu(1292) - lu(954) * lu(1281)
            lu(1293) = lu(1293) - lu(955) * lu(1281)
            lu(1294) = lu(1294) - lu(956) * lu(1281)
            lu(1295) = lu(1295) - lu(957) * lu(1281)
            lu(1380) = lu(1380) - lu(944) * lu(1379)
            lu(1381) = lu(1381) - lu(945) * lu(1379)
            lu(1382) = lu(1382) - lu(946) * lu(1379)
            lu(1383) = lu(1383) - lu(947) * lu(1379)
            lu(1384) = lu(1384) - lu(948) * lu(1379)
            lu(1385) = lu(1385) - lu(949) * lu(1379)
            lu(1386) = lu(1386) - lu(950) * lu(1379)
            lu(1387) = lu(1387) - lu(951) * lu(1379)
            lu(1388) = lu(1388) - lu(952) * lu(1379)
            lu(1389) = lu(1389) - lu(953) * lu(1379)
            lu(1390) = lu(1390) - lu(954) * lu(1379)
            lu(1391) = lu(1391) - lu(955) * lu(1379)
            lu(1392) = lu(1392) - lu(956) * lu(1379)
            lu(1393) = lu(1393) - lu(957) * lu(1379)
            lu(1424) = lu(1424) - lu(944) * lu(1423)
            lu(1425) = lu(1425) - lu(945) * lu(1423)
            lu(1426) = lu(1426) - lu(946) * lu(1423)
            lu(1427) = lu(1427) - lu(947) * lu(1423)
            lu(1428) = lu(1428) - lu(948) * lu(1423)
            lu(1429) = lu(1429) - lu(949) * lu(1423)
            lu(1430) = lu(1430) - lu(950) * lu(1423)
            lu(1431) = lu(1431) - lu(951) * lu(1423)
            lu(1432) = lu(1432) - lu(952) * lu(1423)
            lu(1433) = lu(1433) - lu(953) * lu(1423)
            lu(1434) = lu(1434) - lu(954) * lu(1423)
            lu(1435) = lu(1435) - lu(955) * lu(1423)
            lu(1436) = lu(1436) - lu(956) * lu(1423)
            lu(1437) = lu(1437) - lu(957) * lu(1423)
            lu(1446) = lu(1446) - lu(944) * lu(1445)
            lu(1447) = lu(1447) - lu(945) * lu(1445)
            lu(1448) = lu(1448) - lu(946) * lu(1445)
            lu(1449) = lu(1449) - lu(947) * lu(1445)
            lu(1450) = lu(1450) - lu(948) * lu(1445)
            lu(1451) = lu(1451) - lu(949) * lu(1445)
            lu(1452) = lu(1452) - lu(950) * lu(1445)
            lu(1453) = lu(1453) - lu(951) * lu(1445)
            lu(1454) = lu(1454) - lu(952) * lu(1445)
            lu(1455) = lu(1455) - lu(953) * lu(1445)
            lu(1456) = lu(1456) - lu(954) * lu(1445)
            lu(1457) = lu(1457) - lu(955) * lu(1445)
            lu(1458) = lu(1458) - lu(956) * lu(1445)
            lu(1459) = lu(1459) - lu(957) * lu(1445)
            lu(1472) = lu(1472) - lu(944) * lu(1471)
            lu(1473) = lu(1473) - lu(945) * lu(1471)
            lu(1474) = lu(1474) - lu(946) * lu(1471)
            lu(1475) = lu(1475) - lu(947) * lu(1471)
            lu(1476) = lu(1476) - lu(948) * lu(1471)
            lu(1477) = lu(1477) - lu(949) * lu(1471)
            lu(1478) = lu(1478) - lu(950) * lu(1471)
            lu(1479) = lu(1479) - lu(951) * lu(1471)
            lu(1480) = lu(1480) - lu(952) * lu(1471)
            lu(1481) = lu(1481) - lu(953) * lu(1471)
            lu(1482) = lu(1482) - lu(954) * lu(1471)
            lu(1483) = lu(1483) - lu(955) * lu(1471)
            lu(1484) = lu(1484) - lu(956) * lu(1471)
            lu(1485) = lu(1485) - lu(957) * lu(1471)
            lu(1496) = lu(1496) - lu(944) * lu(1495)
            lu(1497) = lu(1497) - lu(945) * lu(1495)
            lu(1498) = lu(1498) - lu(946) * lu(1495)
            lu(1499) = lu(1499) - lu(947) * lu(1495)
            lu(1500) = lu(1500) - lu(948) * lu(1495)
            lu(1501) = lu(1501) - lu(949) * lu(1495)
            lu(1502) = lu(1502) - lu(950) * lu(1495)
            lu(1503) = lu(1503) - lu(951) * lu(1495)
            lu(1504) = lu(1504) - lu(952) * lu(1495)
            lu(1505) = lu(1505) - lu(953) * lu(1495)
            lu(1506) = lu(1506) - lu(954) * lu(1495)
            lu(1507) = lu(1507) - lu(955) * lu(1495)
            lu(1508) = lu(1508) - lu(956) * lu(1495)
            lu(1509) = lu(1509) - lu(957) * lu(1495)
            lu(970) = 1._r8 / lu(970)
            lu(971) = lu(971) * lu(970)
            lu(972) = lu(972) * lu(970)
            lu(973) = lu(973) * lu(970)
            lu(974) = lu(974) * lu(970)
            lu(975) = lu(975) * lu(970)
            lu(976) = lu(976) * lu(970)
            lu(977) = lu(977) * lu(970)
            lu(978) = lu(978) * lu(970)
            lu(979) = lu(979) * lu(970)
            lu(980) = lu(980) * lu(970)
            lu(981) = lu(981) * lu(970)
            lu(982) = lu(982) * lu(970)
            lu(983) = lu(983) * lu(970)
            lu(1016) = lu(1016) - lu(971) * lu(1015)
            lu(1017) = lu(1017) - lu(972) * lu(1015)
            lu(1018) = lu(1018) - lu(973) * lu(1015)
            lu(1019) = lu(1019) - lu(974) * lu(1015)
            lu(1020) = lu(1020) - lu(975) * lu(1015)
            lu(1021) = lu(1021) - lu(976) * lu(1015)
            lu(1022) = lu(1022) - lu(977) * lu(1015)
            lu(1023) = lu(1023) - lu(978) * lu(1015)
            lu(1024) = lu(1024) - lu(979) * lu(1015)
            lu(1025) = lu(1025) - lu(980) * lu(1015)
            lu(1026) = lu(1026) - lu(981) * lu(1015)
            lu(1027) = lu(1027) - lu(982) * lu(1015)
            lu(1028) = lu(1028) - lu(983) * lu(1015)
            lu(1043) = lu(1043) - lu(971) * lu(1042)
            lu(1044) = lu(1044) - lu(972) * lu(1042)
            lu(1045) = lu(1045) - lu(973) * lu(1042)
            lu(1046) = lu(1046) - lu(974) * lu(1042)
            lu(1047) = lu(1047) - lu(975) * lu(1042)
            lu(1048) = lu(1048) - lu(976) * lu(1042)
            lu(1049) = lu(1049) - lu(977) * lu(1042)
            lu(1050) = lu(1050) - lu(978) * lu(1042)
            lu(1051) = lu(1051) - lu(979) * lu(1042)
            lu(1052) = lu(1052) - lu(980) * lu(1042)
            lu(1053) = lu(1053) - lu(981) * lu(1042)
            lu(1054) = lu(1054) - lu(982) * lu(1042)
            lu(1055) = lu(1055) - lu(983) * lu(1042)
            lu(1112) = lu(1112) - lu(971) * lu(1111)
            lu(1113) = lu(1113) - lu(972) * lu(1111)
            lu(1114) = lu(1114) - lu(973) * lu(1111)
            lu(1115) = lu(1115) - lu(974) * lu(1111)
            lu(1116) = lu(1116) - lu(975) * lu(1111)
            lu(1117) = lu(1117) - lu(976) * lu(1111)
            lu(1118) = lu(1118) - lu(977) * lu(1111)
            lu(1119) = lu(1119) - lu(978) * lu(1111)
            lu(1120) = lu(1120) - lu(979) * lu(1111)
            lu(1121) = lu(1121) - lu(980) * lu(1111)
            lu(1122) = lu(1122) - lu(981) * lu(1111)
            lu(1123) = lu(1123) - lu(982) * lu(1111)
            lu(1124) = lu(1124) - lu(983) * lu(1111)
            lu(1147) = lu(1147) - lu(971) * lu(1146)
            lu(1148) = lu(1148) - lu(972) * lu(1146)
            lu(1149) = lu(1149) - lu(973) * lu(1146)
            lu(1150) = lu(1150) - lu(974) * lu(1146)
            lu(1151) = lu(1151) - lu(975) * lu(1146)
            lu(1152) = lu(1152) - lu(976) * lu(1146)
            lu(1153) = lu(1153) - lu(977) * lu(1146)
            lu(1154) = lu(1154) - lu(978) * lu(1146)
            lu(1155) = lu(1155) - lu(979) * lu(1146)
            lu(1156) = lu(1156) - lu(980) * lu(1146)
            lu(1157) = lu(1157) - lu(981) * lu(1146)
            lu(1158) = lu(1158) - lu(982) * lu(1146)
            lu(1159) = lu(1159) - lu(983) * lu(1146)
            lu(1167) = lu(1167) - lu(971) * lu(1166)
            lu(1168) = lu(1168) - lu(972) * lu(1166)
            lu(1169) = lu(1169) - lu(973) * lu(1166)
            lu(1170) = lu(1170) - lu(974) * lu(1166)
            lu(1171) = lu(1171) - lu(975) * lu(1166)
            lu(1172) = lu(1172) - lu(976) * lu(1166)
            lu(1173) = lu(1173) - lu(977) * lu(1166)
            lu(1174) = lu(1174) - lu(978) * lu(1166)
            lu(1175) = lu(1175) - lu(979) * lu(1166)
            lu(1176) = lu(1176) - lu(980) * lu(1166)
            lu(1177) = lu(1177) - lu(981) * lu(1166)
            lu(1178) = lu(1178) - lu(982) * lu(1166)
            lu(1179) = lu(1179) - lu(983) * lu(1166)
            lu(1191) = lu(1191) - lu(971) * lu(1190)
            lu(1192) = lu(1192) - lu(972) * lu(1190)
            lu(1193) = lu(1193) - lu(973) * lu(1190)
            lu(1194) = lu(1194) - lu(974) * lu(1190)
            lu(1195) = lu(1195) - lu(975) * lu(1190)
            lu(1196) = lu(1196) - lu(976) * lu(1190)
            lu(1197) = lu(1197) - lu(977) * lu(1190)
            lu(1198) = lu(1198) - lu(978) * lu(1190)
            lu(1199) = lu(1199) - lu(979) * lu(1190)
            lu(1200) = lu(1200) - lu(980) * lu(1190)
            lu(1201) = lu(1201) - lu(981) * lu(1190)
            lu(1202) = lu(1202) - lu(982) * lu(1190)
            lu(1203) = lu(1203) - lu(983) * lu(1190)
            lu(1246) = lu(1246) - lu(971) * lu(1245)
            lu(1247) = lu(1247) - lu(972) * lu(1245)
            lu(1248) = lu(1248) - lu(973) * lu(1245)
            lu(1249) = lu(1249) - lu(974) * lu(1245)
            lu(1250) = lu(1250) - lu(975) * lu(1245)
            lu(1251) = lu(1251) - lu(976) * lu(1245)
            lu(1252) = lu(1252) - lu(977) * lu(1245)
            lu(1253) = lu(1253) - lu(978) * lu(1245)
            lu(1254) = lu(1254) - lu(979) * lu(1245)
            lu(1255) = lu(1255) - lu(980) * lu(1245)
            lu(1256) = lu(1256) - lu(981) * lu(1245)
            lu(1257) = lu(1257) - lu(982) * lu(1245)
            lu(1258) = lu(1258) - lu(983) * lu(1245)
            lu(1283) = lu(1283) - lu(971) * lu(1282)
            lu(1284) = lu(1284) - lu(972) * lu(1282)
            lu(1285) = lu(1285) - lu(973) * lu(1282)
            lu(1286) = lu(1286) - lu(974) * lu(1282)
            lu(1287) = lu(1287) - lu(975) * lu(1282)
            lu(1288) = lu(1288) - lu(976) * lu(1282)
            lu(1289) = lu(1289) - lu(977) * lu(1282)
            lu(1290) = lu(1290) - lu(978) * lu(1282)
            lu(1291) = lu(1291) - lu(979) * lu(1282)
            lu(1292) = lu(1292) - lu(980) * lu(1282)
            lu(1293) = lu(1293) - lu(981) * lu(1282)
            lu(1294) = lu(1294) - lu(982) * lu(1282)
            lu(1295) = lu(1295) - lu(983) * lu(1282)
            lu(1381) = lu(1381) - lu(971) * lu(1380)
            lu(1382) = lu(1382) - lu(972) * lu(1380)
            lu(1383) = lu(1383) - lu(973) * lu(1380)
            lu(1384) = lu(1384) - lu(974) * lu(1380)
            lu(1385) = lu(1385) - lu(975) * lu(1380)
            lu(1386) = lu(1386) - lu(976) * lu(1380)
            lu(1387) = lu(1387) - lu(977) * lu(1380)
            lu(1388) = lu(1388) - lu(978) * lu(1380)
            lu(1389) = lu(1389) - lu(979) * lu(1380)
            lu(1390) = lu(1390) - lu(980) * lu(1380)
            lu(1391) = lu(1391) - lu(981) * lu(1380)
            lu(1392) = lu(1392) - lu(982) * lu(1380)
            lu(1393) = lu(1393) - lu(983) * lu(1380)
            lu(1425) = lu(1425) - lu(971) * lu(1424)
            lu(1426) = lu(1426) - lu(972) * lu(1424)
            lu(1427) = lu(1427) - lu(973) * lu(1424)
            lu(1428) = lu(1428) - lu(974) * lu(1424)
            lu(1429) = lu(1429) - lu(975) * lu(1424)
            lu(1430) = lu(1430) - lu(976) * lu(1424)
            lu(1431) = lu(1431) - lu(977) * lu(1424)
            lu(1432) = lu(1432) - lu(978) * lu(1424)
            lu(1433) = lu(1433) - lu(979) * lu(1424)
            lu(1434) = lu(1434) - lu(980) * lu(1424)
            lu(1435) = lu(1435) - lu(981) * lu(1424)
            lu(1436) = lu(1436) - lu(982) * lu(1424)
            lu(1437) = lu(1437) - lu(983) * lu(1424)
            lu(1447) = lu(1447) - lu(971) * lu(1446)
            lu(1448) = lu(1448) - lu(972) * lu(1446)
            lu(1449) = lu(1449) - lu(973) * lu(1446)
            lu(1450) = lu(1450) - lu(974) * lu(1446)
            lu(1451) = lu(1451) - lu(975) * lu(1446)
            lu(1452) = lu(1452) - lu(976) * lu(1446)
            lu(1453) = lu(1453) - lu(977) * lu(1446)
            lu(1454) = lu(1454) - lu(978) * lu(1446)
            lu(1455) = lu(1455) - lu(979) * lu(1446)
            lu(1456) = lu(1456) - lu(980) * lu(1446)
            lu(1457) = lu(1457) - lu(981) * lu(1446)
            lu(1458) = lu(1458) - lu(982) * lu(1446)
            lu(1459) = lu(1459) - lu(983) * lu(1446)
            lu(1473) = lu(1473) - lu(971) * lu(1472)
            lu(1474) = lu(1474) - lu(972) * lu(1472)
            lu(1475) = lu(1475) - lu(973) * lu(1472)
            lu(1476) = lu(1476) - lu(974) * lu(1472)
            lu(1477) = lu(1477) - lu(975) * lu(1472)
            lu(1478) = lu(1478) - lu(976) * lu(1472)
            lu(1479) = lu(1479) - lu(977) * lu(1472)
            lu(1480) = lu(1480) - lu(978) * lu(1472)
            lu(1481) = lu(1481) - lu(979) * lu(1472)
            lu(1482) = lu(1482) - lu(980) * lu(1472)
            lu(1483) = lu(1483) - lu(981) * lu(1472)
            lu(1484) = lu(1484) - lu(982) * lu(1472)
            lu(1485) = lu(1485) - lu(983) * lu(1472)
            lu(1497) = lu(1497) - lu(971) * lu(1496)
            lu(1498) = lu(1498) - lu(972) * lu(1496)
            lu(1499) = lu(1499) - lu(973) * lu(1496)
            lu(1500) = lu(1500) - lu(974) * lu(1496)
            lu(1501) = lu(1501) - lu(975) * lu(1496)
            lu(1502) = lu(1502) - lu(976) * lu(1496)
            lu(1503) = lu(1503) - lu(977) * lu(1496)
            lu(1504) = lu(1504) - lu(978) * lu(1496)
            lu(1505) = lu(1505) - lu(979) * lu(1496)
            lu(1506) = lu(1506) - lu(980) * lu(1496)
            lu(1507) = lu(1507) - lu(981) * lu(1496)
            lu(1508) = lu(1508) - lu(982) * lu(1496)
            lu(1509) = lu(1509) - lu(983) * lu(1496)
            lu(1016) = 1._r8 / lu(1016)
            lu(1017) = lu(1017) * lu(1016)
            lu(1018) = lu(1018) * lu(1016)
            lu(1019) = lu(1019) * lu(1016)
            lu(1020) = lu(1020) * lu(1016)
            lu(1021) = lu(1021) * lu(1016)
            lu(1022) = lu(1022) * lu(1016)
            lu(1023) = lu(1023) * lu(1016)
            lu(1024) = lu(1024) * lu(1016)
            lu(1025) = lu(1025) * lu(1016)
            lu(1026) = lu(1026) * lu(1016)
            lu(1027) = lu(1027) * lu(1016)
            lu(1028) = lu(1028) * lu(1016)
            lu(1044) = lu(1044) - lu(1017) * lu(1043)
            lu(1045) = lu(1045) - lu(1018) * lu(1043)
            lu(1046) = lu(1046) - lu(1019) * lu(1043)
            lu(1047) = lu(1047) - lu(1020) * lu(1043)
            lu(1048) = lu(1048) - lu(1021) * lu(1043)
            lu(1049) = lu(1049) - lu(1022) * lu(1043)
            lu(1050) = lu(1050) - lu(1023) * lu(1043)
            lu(1051) = lu(1051) - lu(1024) * lu(1043)
            lu(1052) = lu(1052) - lu(1025) * lu(1043)
            lu(1053) = lu(1053) - lu(1026) * lu(1043)
            lu(1054) = lu(1054) - lu(1027) * lu(1043)
            lu(1055) = lu(1055) - lu(1028) * lu(1043)
            lu(1113) = lu(1113) - lu(1017) * lu(1112)
            lu(1114) = lu(1114) - lu(1018) * lu(1112)
            lu(1115) = lu(1115) - lu(1019) * lu(1112)
            lu(1116) = lu(1116) - lu(1020) * lu(1112)
            lu(1117) = lu(1117) - lu(1021) * lu(1112)
            lu(1118) = lu(1118) - lu(1022) * lu(1112)
            lu(1119) = lu(1119) - lu(1023) * lu(1112)
            lu(1120) = lu(1120) - lu(1024) * lu(1112)
            lu(1121) = lu(1121) - lu(1025) * lu(1112)
            lu(1122) = lu(1122) - lu(1026) * lu(1112)
            lu(1123) = lu(1123) - lu(1027) * lu(1112)
            lu(1124) = lu(1124) - lu(1028) * lu(1112)
            lu(1148) = lu(1148) - lu(1017) * lu(1147)
            lu(1149) = lu(1149) - lu(1018) * lu(1147)
            lu(1150) = lu(1150) - lu(1019) * lu(1147)
            lu(1151) = lu(1151) - lu(1020) * lu(1147)
            lu(1152) = lu(1152) - lu(1021) * lu(1147)
            lu(1153) = lu(1153) - lu(1022) * lu(1147)
            lu(1154) = lu(1154) - lu(1023) * lu(1147)
            lu(1155) = lu(1155) - lu(1024) * lu(1147)
            lu(1156) = lu(1156) - lu(1025) * lu(1147)
            lu(1157) = lu(1157) - lu(1026) * lu(1147)
            lu(1158) = lu(1158) - lu(1027) * lu(1147)
            lu(1159) = lu(1159) - lu(1028) * lu(1147)
            lu(1168) = lu(1168) - lu(1017) * lu(1167)
            lu(1169) = lu(1169) - lu(1018) * lu(1167)
            lu(1170) = lu(1170) - lu(1019) * lu(1167)
            lu(1171) = lu(1171) - lu(1020) * lu(1167)
            lu(1172) = lu(1172) - lu(1021) * lu(1167)
            lu(1173) = lu(1173) - lu(1022) * lu(1167)
            lu(1174) = lu(1174) - lu(1023) * lu(1167)
            lu(1175) = lu(1175) - lu(1024) * lu(1167)
            lu(1176) = lu(1176) - lu(1025) * lu(1167)
            lu(1177) = lu(1177) - lu(1026) * lu(1167)
            lu(1178) = lu(1178) - lu(1027) * lu(1167)
            lu(1179) = lu(1179) - lu(1028) * lu(1167)
            lu(1192) = lu(1192) - lu(1017) * lu(1191)
            lu(1193) = lu(1193) - lu(1018) * lu(1191)
            lu(1194) = lu(1194) - lu(1019) * lu(1191)
            lu(1195) = lu(1195) - lu(1020) * lu(1191)
            lu(1196) = lu(1196) - lu(1021) * lu(1191)
            lu(1197) = lu(1197) - lu(1022) * lu(1191)
            lu(1198) = lu(1198) - lu(1023) * lu(1191)
            lu(1199) = lu(1199) - lu(1024) * lu(1191)
            lu(1200) = lu(1200) - lu(1025) * lu(1191)
            lu(1201) = lu(1201) - lu(1026) * lu(1191)
            lu(1202) = lu(1202) - lu(1027) * lu(1191)
            lu(1203) = lu(1203) - lu(1028) * lu(1191)
            lu(1247) = lu(1247) - lu(1017) * lu(1246)
            lu(1248) = lu(1248) - lu(1018) * lu(1246)
            lu(1249) = lu(1249) - lu(1019) * lu(1246)
            lu(1250) = lu(1250) - lu(1020) * lu(1246)
            lu(1251) = lu(1251) - lu(1021) * lu(1246)
            lu(1252) = lu(1252) - lu(1022) * lu(1246)
            lu(1253) = lu(1253) - lu(1023) * lu(1246)
            lu(1254) = lu(1254) - lu(1024) * lu(1246)
            lu(1255) = lu(1255) - lu(1025) * lu(1246)
            lu(1256) = lu(1256) - lu(1026) * lu(1246)
            lu(1257) = lu(1257) - lu(1027) * lu(1246)
            lu(1258) = lu(1258) - lu(1028) * lu(1246)
            lu(1284) = lu(1284) - lu(1017) * lu(1283)
            lu(1285) = lu(1285) - lu(1018) * lu(1283)
            lu(1286) = lu(1286) - lu(1019) * lu(1283)
            lu(1287) = lu(1287) - lu(1020) * lu(1283)
            lu(1288) = lu(1288) - lu(1021) * lu(1283)
            lu(1289) = lu(1289) - lu(1022) * lu(1283)
            lu(1290) = lu(1290) - lu(1023) * lu(1283)
            lu(1291) = lu(1291) - lu(1024) * lu(1283)
            lu(1292) = lu(1292) - lu(1025) * lu(1283)
            lu(1293) = lu(1293) - lu(1026) * lu(1283)
            lu(1294) = lu(1294) - lu(1027) * lu(1283)
            lu(1295) = lu(1295) - lu(1028) * lu(1283)
            lu(1382) = lu(1382) - lu(1017) * lu(1381)
            lu(1383) = lu(1383) - lu(1018) * lu(1381)
            lu(1384) = lu(1384) - lu(1019) * lu(1381)
            lu(1385) = lu(1385) - lu(1020) * lu(1381)
            lu(1386) = lu(1386) - lu(1021) * lu(1381)
            lu(1387) = lu(1387) - lu(1022) * lu(1381)
            lu(1388) = lu(1388) - lu(1023) * lu(1381)
            lu(1389) = lu(1389) - lu(1024) * lu(1381)
            lu(1390) = lu(1390) - lu(1025) * lu(1381)
            lu(1391) = lu(1391) - lu(1026) * lu(1381)
            lu(1392) = lu(1392) - lu(1027) * lu(1381)
            lu(1393) = lu(1393) - lu(1028) * lu(1381)
            lu(1426) = lu(1426) - lu(1017) * lu(1425)
            lu(1427) = lu(1427) - lu(1018) * lu(1425)
            lu(1428) = lu(1428) - lu(1019) * lu(1425)
            lu(1429) = lu(1429) - lu(1020) * lu(1425)
            lu(1430) = lu(1430) - lu(1021) * lu(1425)
            lu(1431) = lu(1431) - lu(1022) * lu(1425)
            lu(1432) = lu(1432) - lu(1023) * lu(1425)
            lu(1433) = lu(1433) - lu(1024) * lu(1425)
            lu(1434) = lu(1434) - lu(1025) * lu(1425)
            lu(1435) = lu(1435) - lu(1026) * lu(1425)
            lu(1436) = lu(1436) - lu(1027) * lu(1425)
            lu(1437) = lu(1437) - lu(1028) * lu(1425)
            lu(1448) = lu(1448) - lu(1017) * lu(1447)
            lu(1449) = lu(1449) - lu(1018) * lu(1447)
            lu(1450) = lu(1450) - lu(1019) * lu(1447)
            lu(1451) = lu(1451) - lu(1020) * lu(1447)
            lu(1452) = lu(1452) - lu(1021) * lu(1447)
            lu(1453) = lu(1453) - lu(1022) * lu(1447)
            lu(1454) = lu(1454) - lu(1023) * lu(1447)
            lu(1455) = lu(1455) - lu(1024) * lu(1447)
            lu(1456) = lu(1456) - lu(1025) * lu(1447)
            lu(1457) = lu(1457) - lu(1026) * lu(1447)
            lu(1458) = lu(1458) - lu(1027) * lu(1447)
            lu(1459) = lu(1459) - lu(1028) * lu(1447)
            lu(1474) = lu(1474) - lu(1017) * lu(1473)
            lu(1475) = lu(1475) - lu(1018) * lu(1473)
            lu(1476) = lu(1476) - lu(1019) * lu(1473)
            lu(1477) = lu(1477) - lu(1020) * lu(1473)
            lu(1478) = lu(1478) - lu(1021) * lu(1473)
            lu(1479) = lu(1479) - lu(1022) * lu(1473)
            lu(1480) = lu(1480) - lu(1023) * lu(1473)
            lu(1481) = lu(1481) - lu(1024) * lu(1473)
            lu(1482) = lu(1482) - lu(1025) * lu(1473)
            lu(1483) = lu(1483) - lu(1026) * lu(1473)
            lu(1484) = lu(1484) - lu(1027) * lu(1473)
            lu(1485) = lu(1485) - lu(1028) * lu(1473)
            lu(1498) = lu(1498) - lu(1017) * lu(1497)
            lu(1499) = lu(1499) - lu(1018) * lu(1497)
            lu(1500) = lu(1500) - lu(1019) * lu(1497)
            lu(1501) = lu(1501) - lu(1020) * lu(1497)
            lu(1502) = lu(1502) - lu(1021) * lu(1497)
            lu(1503) = lu(1503) - lu(1022) * lu(1497)
            lu(1504) = lu(1504) - lu(1023) * lu(1497)
            lu(1505) = lu(1505) - lu(1024) * lu(1497)
            lu(1506) = lu(1506) - lu(1025) * lu(1497)
            lu(1507) = lu(1507) - lu(1026) * lu(1497)
            lu(1508) = lu(1508) - lu(1027) * lu(1497)
            lu(1509) = lu(1509) - lu(1028) * lu(1497)
            lu(1044) = 1._r8 / lu(1044)
            lu(1045) = lu(1045) * lu(1044)
            lu(1046) = lu(1046) * lu(1044)
            lu(1047) = lu(1047) * lu(1044)
            lu(1048) = lu(1048) * lu(1044)
            lu(1049) = lu(1049) * lu(1044)
            lu(1050) = lu(1050) * lu(1044)
            lu(1051) = lu(1051) * lu(1044)
            lu(1052) = lu(1052) * lu(1044)
            lu(1053) = lu(1053) * lu(1044)
            lu(1054) = lu(1054) * lu(1044)
            lu(1055) = lu(1055) * lu(1044)
            lu(1114) = lu(1114) - lu(1045) * lu(1113)
            lu(1115) = lu(1115) - lu(1046) * lu(1113)
            lu(1116) = lu(1116) - lu(1047) * lu(1113)
            lu(1117) = lu(1117) - lu(1048) * lu(1113)
            lu(1118) = lu(1118) - lu(1049) * lu(1113)
            lu(1119) = lu(1119) - lu(1050) * lu(1113)
            lu(1120) = lu(1120) - lu(1051) * lu(1113)
            lu(1121) = lu(1121) - lu(1052) * lu(1113)
            lu(1122) = lu(1122) - lu(1053) * lu(1113)
            lu(1123) = lu(1123) - lu(1054) * lu(1113)
            lu(1124) = lu(1124) - lu(1055) * lu(1113)
            lu(1149) = lu(1149) - lu(1045) * lu(1148)
            lu(1150) = lu(1150) - lu(1046) * lu(1148)
            lu(1151) = lu(1151) - lu(1047) * lu(1148)
            lu(1152) = lu(1152) - lu(1048) * lu(1148)
            lu(1153) = lu(1153) - lu(1049) * lu(1148)
            lu(1154) = lu(1154) - lu(1050) * lu(1148)
            lu(1155) = lu(1155) - lu(1051) * lu(1148)
            lu(1156) = lu(1156) - lu(1052) * lu(1148)
            lu(1157) = lu(1157) - lu(1053) * lu(1148)
            lu(1158) = lu(1158) - lu(1054) * lu(1148)
            lu(1159) = lu(1159) - lu(1055) * lu(1148)
            lu(1169) = lu(1169) - lu(1045) * lu(1168)
            lu(1170) = lu(1170) - lu(1046) * lu(1168)
            lu(1171) = lu(1171) - lu(1047) * lu(1168)
            lu(1172) = lu(1172) - lu(1048) * lu(1168)
            lu(1173) = lu(1173) - lu(1049) * lu(1168)
            lu(1174) = lu(1174) - lu(1050) * lu(1168)
            lu(1175) = lu(1175) - lu(1051) * lu(1168)
            lu(1176) = lu(1176) - lu(1052) * lu(1168)
            lu(1177) = lu(1177) - lu(1053) * lu(1168)
            lu(1178) = lu(1178) - lu(1054) * lu(1168)
            lu(1179) = lu(1179) - lu(1055) * lu(1168)
            lu(1193) = lu(1193) - lu(1045) * lu(1192)
            lu(1194) = lu(1194) - lu(1046) * lu(1192)
            lu(1195) = lu(1195) - lu(1047) * lu(1192)
            lu(1196) = lu(1196) - lu(1048) * lu(1192)
            lu(1197) = lu(1197) - lu(1049) * lu(1192)
            lu(1198) = lu(1198) - lu(1050) * lu(1192)
            lu(1199) = lu(1199) - lu(1051) * lu(1192)
            lu(1200) = lu(1200) - lu(1052) * lu(1192)
            lu(1201) = lu(1201) - lu(1053) * lu(1192)
            lu(1202) = lu(1202) - lu(1054) * lu(1192)
            lu(1203) = lu(1203) - lu(1055) * lu(1192)
            lu(1248) = lu(1248) - lu(1045) * lu(1247)
            lu(1249) = lu(1249) - lu(1046) * lu(1247)
            lu(1250) = lu(1250) - lu(1047) * lu(1247)
            lu(1251) = lu(1251) - lu(1048) * lu(1247)
            lu(1252) = lu(1252) - lu(1049) * lu(1247)
            lu(1253) = lu(1253) - lu(1050) * lu(1247)
            lu(1254) = lu(1254) - lu(1051) * lu(1247)
            lu(1255) = lu(1255) - lu(1052) * lu(1247)
            lu(1256) = lu(1256) - lu(1053) * lu(1247)
            lu(1257) = lu(1257) - lu(1054) * lu(1247)
            lu(1258) = lu(1258) - lu(1055) * lu(1247)
            lu(1285) = lu(1285) - lu(1045) * lu(1284)
            lu(1286) = lu(1286) - lu(1046) * lu(1284)
            lu(1287) = lu(1287) - lu(1047) * lu(1284)
            lu(1288) = lu(1288) - lu(1048) * lu(1284)
            lu(1289) = lu(1289) - lu(1049) * lu(1284)
            lu(1290) = lu(1290) - lu(1050) * lu(1284)
            lu(1291) = lu(1291) - lu(1051) * lu(1284)
            lu(1292) = lu(1292) - lu(1052) * lu(1284)
            lu(1293) = lu(1293) - lu(1053) * lu(1284)
            lu(1294) = lu(1294) - lu(1054) * lu(1284)
            lu(1295) = lu(1295) - lu(1055) * lu(1284)
            lu(1383) = lu(1383) - lu(1045) * lu(1382)
            lu(1384) = lu(1384) - lu(1046) * lu(1382)
            lu(1385) = lu(1385) - lu(1047) * lu(1382)
            lu(1386) = lu(1386) - lu(1048) * lu(1382)
            lu(1387) = lu(1387) - lu(1049) * lu(1382)
            lu(1388) = lu(1388) - lu(1050) * lu(1382)
            lu(1389) = lu(1389) - lu(1051) * lu(1382)
            lu(1390) = lu(1390) - lu(1052) * lu(1382)
            lu(1391) = lu(1391) - lu(1053) * lu(1382)
            lu(1392) = lu(1392) - lu(1054) * lu(1382)
            lu(1393) = lu(1393) - lu(1055) * lu(1382)
            lu(1427) = lu(1427) - lu(1045) * lu(1426)
            lu(1428) = lu(1428) - lu(1046) * lu(1426)
            lu(1429) = lu(1429) - lu(1047) * lu(1426)
            lu(1430) = lu(1430) - lu(1048) * lu(1426)
            lu(1431) = lu(1431) - lu(1049) * lu(1426)
            lu(1432) = lu(1432) - lu(1050) * lu(1426)
            lu(1433) = lu(1433) - lu(1051) * lu(1426)
            lu(1434) = lu(1434) - lu(1052) * lu(1426)
            lu(1435) = lu(1435) - lu(1053) * lu(1426)
            lu(1436) = lu(1436) - lu(1054) * lu(1426)
            lu(1437) = lu(1437) - lu(1055) * lu(1426)
            lu(1449) = lu(1449) - lu(1045) * lu(1448)
            lu(1450) = lu(1450) - lu(1046) * lu(1448)
            lu(1451) = lu(1451) - lu(1047) * lu(1448)
            lu(1452) = lu(1452) - lu(1048) * lu(1448)
            lu(1453) = lu(1453) - lu(1049) * lu(1448)
            lu(1454) = lu(1454) - lu(1050) * lu(1448)
            lu(1455) = lu(1455) - lu(1051) * lu(1448)
            lu(1456) = lu(1456) - lu(1052) * lu(1448)
            lu(1457) = lu(1457) - lu(1053) * lu(1448)
            lu(1458) = lu(1458) - lu(1054) * lu(1448)
            lu(1459) = lu(1459) - lu(1055) * lu(1448)
            lu(1475) = lu(1475) - lu(1045) * lu(1474)
            lu(1476) = lu(1476) - lu(1046) * lu(1474)
            lu(1477) = lu(1477) - lu(1047) * lu(1474)
            lu(1478) = lu(1478) - lu(1048) * lu(1474)
            lu(1479) = lu(1479) - lu(1049) * lu(1474)
            lu(1480) = lu(1480) - lu(1050) * lu(1474)
            lu(1481) = lu(1481) - lu(1051) * lu(1474)
            lu(1482) = lu(1482) - lu(1052) * lu(1474)
            lu(1483) = lu(1483) - lu(1053) * lu(1474)
            lu(1484) = lu(1484) - lu(1054) * lu(1474)
            lu(1485) = lu(1485) - lu(1055) * lu(1474)
            lu(1499) = lu(1499) - lu(1045) * lu(1498)
            lu(1500) = lu(1500) - lu(1046) * lu(1498)
            lu(1501) = lu(1501) - lu(1047) * lu(1498)
            lu(1502) = lu(1502) - lu(1048) * lu(1498)
            lu(1503) = lu(1503) - lu(1049) * lu(1498)
            lu(1504) = lu(1504) - lu(1050) * lu(1498)
            lu(1505) = lu(1505) - lu(1051) * lu(1498)
            lu(1506) = lu(1506) - lu(1052) * lu(1498)
            lu(1507) = lu(1507) - lu(1053) * lu(1498)
            lu(1508) = lu(1508) - lu(1054) * lu(1498)
            lu(1509) = lu(1509) - lu(1055) * lu(1498)
        END SUBROUTINE lu_fac19

        SUBROUTINE lu_fac20(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(1114) = 1._r8 / lu(1114)
            lu(1115) = lu(1115) * lu(1114)
            lu(1116) = lu(1116) * lu(1114)
            lu(1117) = lu(1117) * lu(1114)
            lu(1118) = lu(1118) * lu(1114)
            lu(1119) = lu(1119) * lu(1114)
            lu(1120) = lu(1120) * lu(1114)
            lu(1121) = lu(1121) * lu(1114)
            lu(1122) = lu(1122) * lu(1114)
            lu(1123) = lu(1123) * lu(1114)
            lu(1124) = lu(1124) * lu(1114)
            lu(1150) = lu(1150) - lu(1115) * lu(1149)
            lu(1151) = lu(1151) - lu(1116) * lu(1149)
            lu(1152) = lu(1152) - lu(1117) * lu(1149)
            lu(1153) = lu(1153) - lu(1118) * lu(1149)
            lu(1154) = lu(1154) - lu(1119) * lu(1149)
            lu(1155) = lu(1155) - lu(1120) * lu(1149)
            lu(1156) = lu(1156) - lu(1121) * lu(1149)
            lu(1157) = lu(1157) - lu(1122) * lu(1149)
            lu(1158) = lu(1158) - lu(1123) * lu(1149)
            lu(1159) = lu(1159) - lu(1124) * lu(1149)
            lu(1170) = lu(1170) - lu(1115) * lu(1169)
            lu(1171) = lu(1171) - lu(1116) * lu(1169)
            lu(1172) = lu(1172) - lu(1117) * lu(1169)
            lu(1173) = lu(1173) - lu(1118) * lu(1169)
            lu(1174) = lu(1174) - lu(1119) * lu(1169)
            lu(1175) = lu(1175) - lu(1120) * lu(1169)
            lu(1176) = lu(1176) - lu(1121) * lu(1169)
            lu(1177) = lu(1177) - lu(1122) * lu(1169)
            lu(1178) = lu(1178) - lu(1123) * lu(1169)
            lu(1179) = lu(1179) - lu(1124) * lu(1169)
            lu(1194) = lu(1194) - lu(1115) * lu(1193)
            lu(1195) = lu(1195) - lu(1116) * lu(1193)
            lu(1196) = lu(1196) - lu(1117) * lu(1193)
            lu(1197) = lu(1197) - lu(1118) * lu(1193)
            lu(1198) = lu(1198) - lu(1119) * lu(1193)
            lu(1199) = lu(1199) - lu(1120) * lu(1193)
            lu(1200) = lu(1200) - lu(1121) * lu(1193)
            lu(1201) = lu(1201) - lu(1122) * lu(1193)
            lu(1202) = lu(1202) - lu(1123) * lu(1193)
            lu(1203) = lu(1203) - lu(1124) * lu(1193)
            lu(1249) = lu(1249) - lu(1115) * lu(1248)
            lu(1250) = lu(1250) - lu(1116) * lu(1248)
            lu(1251) = lu(1251) - lu(1117) * lu(1248)
            lu(1252) = lu(1252) - lu(1118) * lu(1248)
            lu(1253) = lu(1253) - lu(1119) * lu(1248)
            lu(1254) = lu(1254) - lu(1120) * lu(1248)
            lu(1255) = lu(1255) - lu(1121) * lu(1248)
            lu(1256) = lu(1256) - lu(1122) * lu(1248)
            lu(1257) = lu(1257) - lu(1123) * lu(1248)
            lu(1258) = lu(1258) - lu(1124) * lu(1248)
            lu(1286) = lu(1286) - lu(1115) * lu(1285)
            lu(1287) = lu(1287) - lu(1116) * lu(1285)
            lu(1288) = lu(1288) - lu(1117) * lu(1285)
            lu(1289) = lu(1289) - lu(1118) * lu(1285)
            lu(1290) = lu(1290) - lu(1119) * lu(1285)
            lu(1291) = lu(1291) - lu(1120) * lu(1285)
            lu(1292) = lu(1292) - lu(1121) * lu(1285)
            lu(1293) = lu(1293) - lu(1122) * lu(1285)
            lu(1294) = lu(1294) - lu(1123) * lu(1285)
            lu(1295) = lu(1295) - lu(1124) * lu(1285)
            lu(1384) = lu(1384) - lu(1115) * lu(1383)
            lu(1385) = lu(1385) - lu(1116) * lu(1383)
            lu(1386) = lu(1386) - lu(1117) * lu(1383)
            lu(1387) = lu(1387) - lu(1118) * lu(1383)
            lu(1388) = lu(1388) - lu(1119) * lu(1383)
            lu(1389) = lu(1389) - lu(1120) * lu(1383)
            lu(1390) = lu(1390) - lu(1121) * lu(1383)
            lu(1391) = lu(1391) - lu(1122) * lu(1383)
            lu(1392) = lu(1392) - lu(1123) * lu(1383)
            lu(1393) = lu(1393) - lu(1124) * lu(1383)
            lu(1428) = lu(1428) - lu(1115) * lu(1427)
            lu(1429) = lu(1429) - lu(1116) * lu(1427)
            lu(1430) = lu(1430) - lu(1117) * lu(1427)
            lu(1431) = lu(1431) - lu(1118) * lu(1427)
            lu(1432) = lu(1432) - lu(1119) * lu(1427)
            lu(1433) = lu(1433) - lu(1120) * lu(1427)
            lu(1434) = lu(1434) - lu(1121) * lu(1427)
            lu(1435) = lu(1435) - lu(1122) * lu(1427)
            lu(1436) = lu(1436) - lu(1123) * lu(1427)
            lu(1437) = lu(1437) - lu(1124) * lu(1427)
            lu(1450) = lu(1450) - lu(1115) * lu(1449)
            lu(1451) = lu(1451) - lu(1116) * lu(1449)
            lu(1452) = lu(1452) - lu(1117) * lu(1449)
            lu(1453) = lu(1453) - lu(1118) * lu(1449)
            lu(1454) = lu(1454) - lu(1119) * lu(1449)
            lu(1455) = lu(1455) - lu(1120) * lu(1449)
            lu(1456) = lu(1456) - lu(1121) * lu(1449)
            lu(1457) = lu(1457) - lu(1122) * lu(1449)
            lu(1458) = lu(1458) - lu(1123) * lu(1449)
            lu(1459) = lu(1459) - lu(1124) * lu(1449)
            lu(1476) = lu(1476) - lu(1115) * lu(1475)
            lu(1477) = lu(1477) - lu(1116) * lu(1475)
            lu(1478) = lu(1478) - lu(1117) * lu(1475)
            lu(1479) = lu(1479) - lu(1118) * lu(1475)
            lu(1480) = lu(1480) - lu(1119) * lu(1475)
            lu(1481) = lu(1481) - lu(1120) * lu(1475)
            lu(1482) = lu(1482) - lu(1121) * lu(1475)
            lu(1483) = lu(1483) - lu(1122) * lu(1475)
            lu(1484) = lu(1484) - lu(1123) * lu(1475)
            lu(1485) = lu(1485) - lu(1124) * lu(1475)
            lu(1500) = lu(1500) - lu(1115) * lu(1499)
            lu(1501) = lu(1501) - lu(1116) * lu(1499)
            lu(1502) = lu(1502) - lu(1117) * lu(1499)
            lu(1503) = lu(1503) - lu(1118) * lu(1499)
            lu(1504) = lu(1504) - lu(1119) * lu(1499)
            lu(1505) = lu(1505) - lu(1120) * lu(1499)
            lu(1506) = lu(1506) - lu(1121) * lu(1499)
            lu(1507) = lu(1507) - lu(1122) * lu(1499)
            lu(1508) = lu(1508) - lu(1123) * lu(1499)
            lu(1509) = lu(1509) - lu(1124) * lu(1499)
            lu(1150) = 1._r8 / lu(1150)
            lu(1151) = lu(1151) * lu(1150)
            lu(1152) = lu(1152) * lu(1150)
            lu(1153) = lu(1153) * lu(1150)
            lu(1154) = lu(1154) * lu(1150)
            lu(1155) = lu(1155) * lu(1150)
            lu(1156) = lu(1156) * lu(1150)
            lu(1157) = lu(1157) * lu(1150)
            lu(1158) = lu(1158) * lu(1150)
            lu(1159) = lu(1159) * lu(1150)
            lu(1171) = lu(1171) - lu(1151) * lu(1170)
            lu(1172) = lu(1172) - lu(1152) * lu(1170)
            lu(1173) = lu(1173) - lu(1153) * lu(1170)
            lu(1174) = lu(1174) - lu(1154) * lu(1170)
            lu(1175) = lu(1175) - lu(1155) * lu(1170)
            lu(1176) = lu(1176) - lu(1156) * lu(1170)
            lu(1177) = lu(1177) - lu(1157) * lu(1170)
            lu(1178) = lu(1178) - lu(1158) * lu(1170)
            lu(1179) = lu(1179) - lu(1159) * lu(1170)
            lu(1195) = lu(1195) - lu(1151) * lu(1194)
            lu(1196) = lu(1196) - lu(1152) * lu(1194)
            lu(1197) = lu(1197) - lu(1153) * lu(1194)
            lu(1198) = lu(1198) - lu(1154) * lu(1194)
            lu(1199) = lu(1199) - lu(1155) * lu(1194)
            lu(1200) = lu(1200) - lu(1156) * lu(1194)
            lu(1201) = lu(1201) - lu(1157) * lu(1194)
            lu(1202) = lu(1202) - lu(1158) * lu(1194)
            lu(1203) = lu(1203) - lu(1159) * lu(1194)
            lu(1250) = lu(1250) - lu(1151) * lu(1249)
            lu(1251) = lu(1251) - lu(1152) * lu(1249)
            lu(1252) = lu(1252) - lu(1153) * lu(1249)
            lu(1253) = lu(1253) - lu(1154) * lu(1249)
            lu(1254) = lu(1254) - lu(1155) * lu(1249)
            lu(1255) = lu(1255) - lu(1156) * lu(1249)
            lu(1256) = lu(1256) - lu(1157) * lu(1249)
            lu(1257) = lu(1257) - lu(1158) * lu(1249)
            lu(1258) = lu(1258) - lu(1159) * lu(1249)
            lu(1287) = lu(1287) - lu(1151) * lu(1286)
            lu(1288) = lu(1288) - lu(1152) * lu(1286)
            lu(1289) = lu(1289) - lu(1153) * lu(1286)
            lu(1290) = lu(1290) - lu(1154) * lu(1286)
            lu(1291) = lu(1291) - lu(1155) * lu(1286)
            lu(1292) = lu(1292) - lu(1156) * lu(1286)
            lu(1293) = lu(1293) - lu(1157) * lu(1286)
            lu(1294) = lu(1294) - lu(1158) * lu(1286)
            lu(1295) = lu(1295) - lu(1159) * lu(1286)
            lu(1385) = lu(1385) - lu(1151) * lu(1384)
            lu(1386) = lu(1386) - lu(1152) * lu(1384)
            lu(1387) = lu(1387) - lu(1153) * lu(1384)
            lu(1388) = lu(1388) - lu(1154) * lu(1384)
            lu(1389) = lu(1389) - lu(1155) * lu(1384)
            lu(1390) = lu(1390) - lu(1156) * lu(1384)
            lu(1391) = lu(1391) - lu(1157) * lu(1384)
            lu(1392) = lu(1392) - lu(1158) * lu(1384)
            lu(1393) = lu(1393) - lu(1159) * lu(1384)
            lu(1429) = lu(1429) - lu(1151) * lu(1428)
            lu(1430) = lu(1430) - lu(1152) * lu(1428)
            lu(1431) = lu(1431) - lu(1153) * lu(1428)
            lu(1432) = lu(1432) - lu(1154) * lu(1428)
            lu(1433) = lu(1433) - lu(1155) * lu(1428)
            lu(1434) = lu(1434) - lu(1156) * lu(1428)
            lu(1435) = lu(1435) - lu(1157) * lu(1428)
            lu(1436) = lu(1436) - lu(1158) * lu(1428)
            lu(1437) = lu(1437) - lu(1159) * lu(1428)
            lu(1451) = lu(1451) - lu(1151) * lu(1450)
            lu(1452) = lu(1452) - lu(1152) * lu(1450)
            lu(1453) = lu(1453) - lu(1153) * lu(1450)
            lu(1454) = lu(1454) - lu(1154) * lu(1450)
            lu(1455) = lu(1455) - lu(1155) * lu(1450)
            lu(1456) = lu(1456) - lu(1156) * lu(1450)
            lu(1457) = lu(1457) - lu(1157) * lu(1450)
            lu(1458) = lu(1458) - lu(1158) * lu(1450)
            lu(1459) = lu(1459) - lu(1159) * lu(1450)
            lu(1477) = lu(1477) - lu(1151) * lu(1476)
            lu(1478) = lu(1478) - lu(1152) * lu(1476)
            lu(1479) = lu(1479) - lu(1153) * lu(1476)
            lu(1480) = lu(1480) - lu(1154) * lu(1476)
            lu(1481) = lu(1481) - lu(1155) * lu(1476)
            lu(1482) = lu(1482) - lu(1156) * lu(1476)
            lu(1483) = lu(1483) - lu(1157) * lu(1476)
            lu(1484) = lu(1484) - lu(1158) * lu(1476)
            lu(1485) = lu(1485) - lu(1159) * lu(1476)
            lu(1501) = lu(1501) - lu(1151) * lu(1500)
            lu(1502) = lu(1502) - lu(1152) * lu(1500)
            lu(1503) = lu(1503) - lu(1153) * lu(1500)
            lu(1504) = lu(1504) - lu(1154) * lu(1500)
            lu(1505) = lu(1505) - lu(1155) * lu(1500)
            lu(1506) = lu(1506) - lu(1156) * lu(1500)
            lu(1507) = lu(1507) - lu(1157) * lu(1500)
            lu(1508) = lu(1508) - lu(1158) * lu(1500)
            lu(1509) = lu(1509) - lu(1159) * lu(1500)
            lu(1171) = 1._r8 / lu(1171)
            lu(1172) = lu(1172) * lu(1171)
            lu(1173) = lu(1173) * lu(1171)
            lu(1174) = lu(1174) * lu(1171)
            lu(1175) = lu(1175) * lu(1171)
            lu(1176) = lu(1176) * lu(1171)
            lu(1177) = lu(1177) * lu(1171)
            lu(1178) = lu(1178) * lu(1171)
            lu(1179) = lu(1179) * lu(1171)
            lu(1196) = lu(1196) - lu(1172) * lu(1195)
            lu(1197) = lu(1197) - lu(1173) * lu(1195)
            lu(1198) = lu(1198) - lu(1174) * lu(1195)
            lu(1199) = lu(1199) - lu(1175) * lu(1195)
            lu(1200) = lu(1200) - lu(1176) * lu(1195)
            lu(1201) = lu(1201) - lu(1177) * lu(1195)
            lu(1202) = lu(1202) - lu(1178) * lu(1195)
            lu(1203) = lu(1203) - lu(1179) * lu(1195)
            lu(1251) = lu(1251) - lu(1172) * lu(1250)
            lu(1252) = lu(1252) - lu(1173) * lu(1250)
            lu(1253) = lu(1253) - lu(1174) * lu(1250)
            lu(1254) = lu(1254) - lu(1175) * lu(1250)
            lu(1255) = lu(1255) - lu(1176) * lu(1250)
            lu(1256) = lu(1256) - lu(1177) * lu(1250)
            lu(1257) = lu(1257) - lu(1178) * lu(1250)
            lu(1258) = lu(1258) - lu(1179) * lu(1250)
            lu(1288) = lu(1288) - lu(1172) * lu(1287)
            lu(1289) = lu(1289) - lu(1173) * lu(1287)
            lu(1290) = lu(1290) - lu(1174) * lu(1287)
            lu(1291) = lu(1291) - lu(1175) * lu(1287)
            lu(1292) = lu(1292) - lu(1176) * lu(1287)
            lu(1293) = lu(1293) - lu(1177) * lu(1287)
            lu(1294) = lu(1294) - lu(1178) * lu(1287)
            lu(1295) = lu(1295) - lu(1179) * lu(1287)
            lu(1386) = lu(1386) - lu(1172) * lu(1385)
            lu(1387) = lu(1387) - lu(1173) * lu(1385)
            lu(1388) = lu(1388) - lu(1174) * lu(1385)
            lu(1389) = lu(1389) - lu(1175) * lu(1385)
            lu(1390) = lu(1390) - lu(1176) * lu(1385)
            lu(1391) = lu(1391) - lu(1177) * lu(1385)
            lu(1392) = lu(1392) - lu(1178) * lu(1385)
            lu(1393) = lu(1393) - lu(1179) * lu(1385)
            lu(1430) = lu(1430) - lu(1172) * lu(1429)
            lu(1431) = lu(1431) - lu(1173) * lu(1429)
            lu(1432) = lu(1432) - lu(1174) * lu(1429)
            lu(1433) = lu(1433) - lu(1175) * lu(1429)
            lu(1434) = lu(1434) - lu(1176) * lu(1429)
            lu(1435) = lu(1435) - lu(1177) * lu(1429)
            lu(1436) = lu(1436) - lu(1178) * lu(1429)
            lu(1437) = lu(1437) - lu(1179) * lu(1429)
            lu(1452) = lu(1452) - lu(1172) * lu(1451)
            lu(1453) = lu(1453) - lu(1173) * lu(1451)
            lu(1454) = lu(1454) - lu(1174) * lu(1451)
            lu(1455) = lu(1455) - lu(1175) * lu(1451)
            lu(1456) = lu(1456) - lu(1176) * lu(1451)
            lu(1457) = lu(1457) - lu(1177) * lu(1451)
            lu(1458) = lu(1458) - lu(1178) * lu(1451)
            lu(1459) = lu(1459) - lu(1179) * lu(1451)
            lu(1478) = lu(1478) - lu(1172) * lu(1477)
            lu(1479) = lu(1479) - lu(1173) * lu(1477)
            lu(1480) = lu(1480) - lu(1174) * lu(1477)
            lu(1481) = lu(1481) - lu(1175) * lu(1477)
            lu(1482) = lu(1482) - lu(1176) * lu(1477)
            lu(1483) = lu(1483) - lu(1177) * lu(1477)
            lu(1484) = lu(1484) - lu(1178) * lu(1477)
            lu(1485) = lu(1485) - lu(1179) * lu(1477)
            lu(1502) = lu(1502) - lu(1172) * lu(1501)
            lu(1503) = lu(1503) - lu(1173) * lu(1501)
            lu(1504) = lu(1504) - lu(1174) * lu(1501)
            lu(1505) = lu(1505) - lu(1175) * lu(1501)
            lu(1506) = lu(1506) - lu(1176) * lu(1501)
            lu(1507) = lu(1507) - lu(1177) * lu(1501)
            lu(1508) = lu(1508) - lu(1178) * lu(1501)
            lu(1509) = lu(1509) - lu(1179) * lu(1501)
            lu(1196) = 1._r8 / lu(1196)
            lu(1197) = lu(1197) * lu(1196)
            lu(1198) = lu(1198) * lu(1196)
            lu(1199) = lu(1199) * lu(1196)
            lu(1200) = lu(1200) * lu(1196)
            lu(1201) = lu(1201) * lu(1196)
            lu(1202) = lu(1202) * lu(1196)
            lu(1203) = lu(1203) * lu(1196)
            lu(1252) = lu(1252) - lu(1197) * lu(1251)
            lu(1253) = lu(1253) - lu(1198) * lu(1251)
            lu(1254) = lu(1254) - lu(1199) * lu(1251)
            lu(1255) = lu(1255) - lu(1200) * lu(1251)
            lu(1256) = lu(1256) - lu(1201) * lu(1251)
            lu(1257) = lu(1257) - lu(1202) * lu(1251)
            lu(1258) = lu(1258) - lu(1203) * lu(1251)
            lu(1289) = lu(1289) - lu(1197) * lu(1288)
            lu(1290) = lu(1290) - lu(1198) * lu(1288)
            lu(1291) = lu(1291) - lu(1199) * lu(1288)
            lu(1292) = lu(1292) - lu(1200) * lu(1288)
            lu(1293) = lu(1293) - lu(1201) * lu(1288)
            lu(1294) = lu(1294) - lu(1202) * lu(1288)
            lu(1295) = lu(1295) - lu(1203) * lu(1288)
            lu(1387) = lu(1387) - lu(1197) * lu(1386)
            lu(1388) = lu(1388) - lu(1198) * lu(1386)
            lu(1389) = lu(1389) - lu(1199) * lu(1386)
            lu(1390) = lu(1390) - lu(1200) * lu(1386)
            lu(1391) = lu(1391) - lu(1201) * lu(1386)
            lu(1392) = lu(1392) - lu(1202) * lu(1386)
            lu(1393) = lu(1393) - lu(1203) * lu(1386)
            lu(1431) = lu(1431) - lu(1197) * lu(1430)
            lu(1432) = lu(1432) - lu(1198) * lu(1430)
            lu(1433) = lu(1433) - lu(1199) * lu(1430)
            lu(1434) = lu(1434) - lu(1200) * lu(1430)
            lu(1435) = lu(1435) - lu(1201) * lu(1430)
            lu(1436) = lu(1436) - lu(1202) * lu(1430)
            lu(1437) = lu(1437) - lu(1203) * lu(1430)
            lu(1453) = lu(1453) - lu(1197) * lu(1452)
            lu(1454) = lu(1454) - lu(1198) * lu(1452)
            lu(1455) = lu(1455) - lu(1199) * lu(1452)
            lu(1456) = lu(1456) - lu(1200) * lu(1452)
            lu(1457) = lu(1457) - lu(1201) * lu(1452)
            lu(1458) = lu(1458) - lu(1202) * lu(1452)
            lu(1459) = lu(1459) - lu(1203) * lu(1452)
            lu(1479) = lu(1479) - lu(1197) * lu(1478)
            lu(1480) = lu(1480) - lu(1198) * lu(1478)
            lu(1481) = lu(1481) - lu(1199) * lu(1478)
            lu(1482) = lu(1482) - lu(1200) * lu(1478)
            lu(1483) = lu(1483) - lu(1201) * lu(1478)
            lu(1484) = lu(1484) - lu(1202) * lu(1478)
            lu(1485) = lu(1485) - lu(1203) * lu(1478)
            lu(1503) = lu(1503) - lu(1197) * lu(1502)
            lu(1504) = lu(1504) - lu(1198) * lu(1502)
            lu(1505) = lu(1505) - lu(1199) * lu(1502)
            lu(1506) = lu(1506) - lu(1200) * lu(1502)
            lu(1507) = lu(1507) - lu(1201) * lu(1502)
            lu(1508) = lu(1508) - lu(1202) * lu(1502)
            lu(1509) = lu(1509) - lu(1203) * lu(1502)
            lu(1252) = 1._r8 / lu(1252)
            lu(1253) = lu(1253) * lu(1252)
            lu(1254) = lu(1254) * lu(1252)
            lu(1255) = lu(1255) * lu(1252)
            lu(1256) = lu(1256) * lu(1252)
            lu(1257) = lu(1257) * lu(1252)
            lu(1258) = lu(1258) * lu(1252)
            lu(1290) = lu(1290) - lu(1253) * lu(1289)
            lu(1291) = lu(1291) - lu(1254) * lu(1289)
            lu(1292) = lu(1292) - lu(1255) * lu(1289)
            lu(1293) = lu(1293) - lu(1256) * lu(1289)
            lu(1294) = lu(1294) - lu(1257) * lu(1289)
            lu(1295) = lu(1295) - lu(1258) * lu(1289)
            lu(1388) = lu(1388) - lu(1253) * lu(1387)
            lu(1389) = lu(1389) - lu(1254) * lu(1387)
            lu(1390) = lu(1390) - lu(1255) * lu(1387)
            lu(1391) = lu(1391) - lu(1256) * lu(1387)
            lu(1392) = lu(1392) - lu(1257) * lu(1387)
            lu(1393) = lu(1393) - lu(1258) * lu(1387)
            lu(1432) = lu(1432) - lu(1253) * lu(1431)
            lu(1433) = lu(1433) - lu(1254) * lu(1431)
            lu(1434) = lu(1434) - lu(1255) * lu(1431)
            lu(1435) = lu(1435) - lu(1256) * lu(1431)
            lu(1436) = lu(1436) - lu(1257) * lu(1431)
            lu(1437) = lu(1437) - lu(1258) * lu(1431)
            lu(1454) = lu(1454) - lu(1253) * lu(1453)
            lu(1455) = lu(1455) - lu(1254) * lu(1453)
            lu(1456) = lu(1456) - lu(1255) * lu(1453)
            lu(1457) = lu(1457) - lu(1256) * lu(1453)
            lu(1458) = lu(1458) - lu(1257) * lu(1453)
            lu(1459) = lu(1459) - lu(1258) * lu(1453)
            lu(1480) = lu(1480) - lu(1253) * lu(1479)
            lu(1481) = lu(1481) - lu(1254) * lu(1479)
            lu(1482) = lu(1482) - lu(1255) * lu(1479)
            lu(1483) = lu(1483) - lu(1256) * lu(1479)
            lu(1484) = lu(1484) - lu(1257) * lu(1479)
            lu(1485) = lu(1485) - lu(1258) * lu(1479)
            lu(1504) = lu(1504) - lu(1253) * lu(1503)
            lu(1505) = lu(1505) - lu(1254) * lu(1503)
            lu(1506) = lu(1506) - lu(1255) * lu(1503)
            lu(1507) = lu(1507) - lu(1256) * lu(1503)
            lu(1508) = lu(1508) - lu(1257) * lu(1503)
            lu(1509) = lu(1509) - lu(1258) * lu(1503)
            lu(1290) = 1._r8 / lu(1290)
            lu(1291) = lu(1291) * lu(1290)
            lu(1292) = lu(1292) * lu(1290)
            lu(1293) = lu(1293) * lu(1290)
            lu(1294) = lu(1294) * lu(1290)
            lu(1295) = lu(1295) * lu(1290)
            lu(1389) = lu(1389) - lu(1291) * lu(1388)
            lu(1390) = lu(1390) - lu(1292) * lu(1388)
            lu(1391) = lu(1391) - lu(1293) * lu(1388)
            lu(1392) = lu(1392) - lu(1294) * lu(1388)
            lu(1393) = lu(1393) - lu(1295) * lu(1388)
            lu(1433) = lu(1433) - lu(1291) * lu(1432)
            lu(1434) = lu(1434) - lu(1292) * lu(1432)
            lu(1435) = lu(1435) - lu(1293) * lu(1432)
            lu(1436) = lu(1436) - lu(1294) * lu(1432)
            lu(1437) = lu(1437) - lu(1295) * lu(1432)
            lu(1455) = lu(1455) - lu(1291) * lu(1454)
            lu(1456) = lu(1456) - lu(1292) * lu(1454)
            lu(1457) = lu(1457) - lu(1293) * lu(1454)
            lu(1458) = lu(1458) - lu(1294) * lu(1454)
            lu(1459) = lu(1459) - lu(1295) * lu(1454)
            lu(1481) = lu(1481) - lu(1291) * lu(1480)
            lu(1482) = lu(1482) - lu(1292) * lu(1480)
            lu(1483) = lu(1483) - lu(1293) * lu(1480)
            lu(1484) = lu(1484) - lu(1294) * lu(1480)
            lu(1485) = lu(1485) - lu(1295) * lu(1480)
            lu(1505) = lu(1505) - lu(1291) * lu(1504)
            lu(1506) = lu(1506) - lu(1292) * lu(1504)
            lu(1507) = lu(1507) - lu(1293) * lu(1504)
            lu(1508) = lu(1508) - lu(1294) * lu(1504)
            lu(1509) = lu(1509) - lu(1295) * lu(1504)
        END SUBROUTINE lu_fac20

        SUBROUTINE lu_fac21(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            lu(1389) = 1._r8 / lu(1389)
            lu(1390) = lu(1390) * lu(1389)
            lu(1391) = lu(1391) * lu(1389)
            lu(1392) = lu(1392) * lu(1389)
            lu(1393) = lu(1393) * lu(1389)
            lu(1434) = lu(1434) - lu(1390) * lu(1433)
            lu(1435) = lu(1435) - lu(1391) * lu(1433)
            lu(1436) = lu(1436) - lu(1392) * lu(1433)
            lu(1437) = lu(1437) - lu(1393) * lu(1433)
            lu(1456) = lu(1456) - lu(1390) * lu(1455)
            lu(1457) = lu(1457) - lu(1391) * lu(1455)
            lu(1458) = lu(1458) - lu(1392) * lu(1455)
            lu(1459) = lu(1459) - lu(1393) * lu(1455)
            lu(1482) = lu(1482) - lu(1390) * lu(1481)
            lu(1483) = lu(1483) - lu(1391) * lu(1481)
            lu(1484) = lu(1484) - lu(1392) * lu(1481)
            lu(1485) = lu(1485) - lu(1393) * lu(1481)
            lu(1506) = lu(1506) - lu(1390) * lu(1505)
            lu(1507) = lu(1507) - lu(1391) * lu(1505)
            lu(1508) = lu(1508) - lu(1392) * lu(1505)
            lu(1509) = lu(1509) - lu(1393) * lu(1505)
            lu(1434) = 1._r8 / lu(1434)
            lu(1435) = lu(1435) * lu(1434)
            lu(1436) = lu(1436) * lu(1434)
            lu(1437) = lu(1437) * lu(1434)
            lu(1457) = lu(1457) - lu(1435) * lu(1456)
            lu(1458) = lu(1458) - lu(1436) * lu(1456)
            lu(1459) = lu(1459) - lu(1437) * lu(1456)
            lu(1483) = lu(1483) - lu(1435) * lu(1482)
            lu(1484) = lu(1484) - lu(1436) * lu(1482)
            lu(1485) = lu(1485) - lu(1437) * lu(1482)
            lu(1507) = lu(1507) - lu(1435) * lu(1506)
            lu(1508) = lu(1508) - lu(1436) * lu(1506)
            lu(1509) = lu(1509) - lu(1437) * lu(1506)
            lu(1457) = 1._r8 / lu(1457)
            lu(1458) = lu(1458) * lu(1457)
            lu(1459) = lu(1459) * lu(1457)
            lu(1484) = lu(1484) - lu(1458) * lu(1483)
            lu(1485) = lu(1485) - lu(1459) * lu(1483)
            lu(1508) = lu(1508) - lu(1458) * lu(1507)
            lu(1509) = lu(1509) - lu(1459) * lu(1507)
            lu(1484) = 1._r8 / lu(1484)
            lu(1485) = lu(1485) * lu(1484)
            lu(1509) = lu(1509) - lu(1485) * lu(1508)
            lu(1509) = 1._r8 / lu(1509)
        END SUBROUTINE lu_fac21

        SUBROUTINE lu_fac(lu)
            USE shr_kind_mod, ONLY: r8 => shr_kind_r8
            IMPLICIT NONE
            !-----------------------------------------------------------------------
            ! ... dummy args
            !-----------------------------------------------------------------------
            REAL(KIND=r8), intent(inout) :: lu(:)
            CALL lu_fac01(lu)
            CALL lu_fac02(lu)
            CALL lu_fac03(lu)
            CALL lu_fac04(lu)
            CALL lu_fac05(lu)
            CALL lu_fac06(lu)
            CALL lu_fac07(lu)
            CALL lu_fac08(lu)
            CALL lu_fac09(lu)
            CALL lu_fac10(lu)
            CALL lu_fac11(lu)
            CALL lu_fac12(lu)
            CALL lu_fac13(lu)
            CALL lu_fac14(lu)
            CALL lu_fac15(lu)
            CALL lu_fac16(lu)
            CALL lu_fac17(lu)
            CALL lu_fac18(lu)
            CALL lu_fac19(lu)
            CALL lu_fac20(lu)
            CALL lu_fac21(lu)
        END SUBROUTINE lu_fac
    END MODULE mo_lu_factor
